Give this code a try...

Sub GotoSheetA1onSheetNamedX()
Dim WB As Workbook
On Error Resume Next
For Each WB In Application.Workbooks
WB.Worksheets("X").Activate
WB.Worksheets("X").Range("A1").Select
Next
End Sub

Change all the X's to the actual name of the sheet you want to go to.

--
Rick (MVP - Excel)


"J.W. Aldridge" wrote in message
...
find sheet name "x" in all open workbooks.
go to sheet, cell a1.