Hi,

If I have a list of sheets codenames saved on a worksheet, how do convert
them back to sheets(shname)?

Here's one I've tried:

Dim SheetName As String
Dim shCodeName As String

shCodeName = MainPagepg.Range("BD" & Newrow - 1).Value

AfterShName = Replace(shCodeName.Name, "'", "''")
--
Thanks for your help.
Karen53

Loop through the sheets in the workbook and check the codename for each one
until you get a match.
There's no fixed way to convert directly from one the the other: you could
have a "Sheet1" with codename "shtData".

Tim



"Karen53" <(E-Mail Removed)> wrote in message
news:BDFBFCE6-FE0D-427B-8A57-(E-Mail Removed)...
> Hi,
>
> If I have a list of sheets codenames saved on a worksheet, how do convert
> them back to sheets(shname)?
>
> Here's one I've tried:
>
> Dim SheetName As String
> Dim shCodeName As String
>
> shCodeName = MainPagepg.Range("BD" & Newrow - 1).Value
>
> AfterShName = Replace(shCodeName.Name, "'", "''")
> --
> Thanks for your help.
> Karen53