Application Goto "Code Name Sheet"

[SIGE]

Hi All,

Application.Goto Reference:=['Test'!A1]

This works ok as long as the Sheetname "Test" exists.

So I want to do the same but based on the CodeName of that sheet.

Any Suggestions?

Thanks in advance,
Sige

 

[Krishnakumar]

Hi,

something like

Application.Goto sheet1.range("a1")

HTH

 

[SIGE]

I'll keep on training^^

Thx!!

 

[mikerickson]

Given a code name as a string, this will return the worksheet object it refers to.

Function SheetCodeNamed(sheetCodeName As String) As Worksheet
    With ThisWorkbook
        Set SheetCodeNamed = .Sheets(.VBProject.VBComponents(sheetCodeName).Properties("Index").Value)
    End With
End Function

Sub test()
    MsgBox SheetCodeNamed("Sheet1").Name
End Sub