return sheets code name

[Karen53]

or something similarHi,

Is there a way to return the code name of a worksheet using sheets(ShName)?

 

[OssieMac]

ActiveSheet.CodeName

 

[OssieMac]

I re read you question and thought perhaps this is what you want.

Sheets("My sheet").CodeName

 

[Karen53]

Yes, thank you OssieMac. The second answer is what I was looking for.

 

[Gord Dibben]

In addition to OssieMac's code.

Sub CreateListOfSheetsOnFirstSheet()
Dim ws As Worksheet
For I = 1 To Worksheets.Count
With Worksheets(1)
Set ws = Worksheets(I)
.Cells(I, 1).Value = ws.Name
.Cells(I, 2).Value = ws.CodeName
End With
Next I
End Sub


Gord Dibben MS Excel MVP

 

[Karen53]

Thank you, Gord