Sub EnumWS()
With ThisWorkbook
.Sheets.Add
On Error Resume Next
For i = 1 To Worksheets.Count
Cells(i, 1) = Worksheets(i).CodeName
Cells(i, 2) = Worksheets(i).Name
Cells(i, 3) = Worksheets(i).Visible
Cells(i, 4) = Worksheets(i).UsedRange.Address
Next
End With
End Sub