Can I refer to a sheet in another book by its codename?
Michelle formulated the question :
I want to refer to sheets' codenames that are set up in the active book from
another book (or an add-in)
e.g. MsgBox ActiveWorkbook.SheetCodeNameHere.Cells(6, 2).Value
Can I do that?
M
Here's a reusable function that will return the sheetname for a sheet
in any open workbook, by passing it a ref to the workbook and the
codename of the sheet.
Function Get_SheetTabName(Wkb As Workbook, CodeName As String) As
String
Dim wks As Worksheet
For Each wks In Wkb.Worksheets
If wks.CodeName = CodeName Then Get_SheetTabName = wks.name: Exit
Function
Next
End Function
Note that the If line is one line, so watch the word wrap.
HTH
Garry
|