return sheets code name
 

or something similarHi,

Is there a way to return the code name of a worksheet using sheets(ShName)?
--
Thanks for your help.
Karen53

return sheets code name
 

ActiveSheet.CodeName


--
Regards,

OssieMac


"Karen53" wrote:

or something similarHi,

Is there a way to return the code name of a worksheet using sheets(ShName)?
--
Thanks for your help.
Karen53

return sheets code name
 

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

Sheets("My sheet").CodeName

--
Regards,

OssieMac


"OssieMac" wrote:



ActiveSheet.CodeName


--
Regards,

OssieMac


"Karen53" wrote:

or something similarHi,

Is there a way to return the code name of a worksheet using sheets(ShName)?
--
Thanks for your help.
Karen53

return sheets code name
 

Yes, thank you OssieMac. The second answer is what I was looking for.
--
Thanks for your help.
Karen53


"OssieMac" wrote:

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

Sheets("My sheet").CodeName

--
Regards,

OssieMac


"OssieMac" wrote:



ActiveSheet.CodeName


--
Regards,

OssieMac


"Karen53" wrote:

or something similarHi,

Is there a way to return the code name of a worksheet using sheets(ShName)?
--
Thanks for your help.
Karen53

return sheets code name
 

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

On Thu, 28 Feb 2008 18:13:07 -0800, Karen53
wrote:

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