One way:


Sub ABCD()
Dim bk As Workbook
Dim sh As Worksheet
Set bk = Workbooks.Open("C:\Data6\Workbook2.xls")
sName = bk.VBProject.VBComponents( _
"OtherfileSheet1VbNm").Properties("Name")
Set sh = bk.Worksheets(sName)
sh.Activate

End Sub


--
Regards,
Tom Ogilvy

"ExcelMonkey" wrote in message
...
I know I can name sheets in the proptery window under the Name property.

So if i write a macro in Worbook1 refering to a sheet in Workbook1 that I
named "ThisfileSheet1VbNm I can say:

ThisfileSheet1VbNm.Range("A1").Select

But how do I refer to the name of a sheet in another workbook (workbook2),
within my code in workbook 1. If I have a sheet named
"OtherfileSheet1VbNm"
in workbook 2, and I want to - upon opening workbook2 within macro in
workbook1- select this sheet the following code gives me an error:
"Variable
not Defined"

OtherfileSheet1VbNm.Select

How do inform my code that this named sheet exists in the workbook I have
jsut opened?

Thanks