I got this code from this board which opens my worksheet up at A1 on a
certain worksheet. My problem is that it goes in to Debug if any of the
worksheets within the file are hidden. Is there a workaround?

Thanks

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
Next sh
ThisWorkbook.Sheets("BOIM").Select
Application.ScreenUpdating = True

End Sub

Hi
try
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
if sh.visible then
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
end if
Next sh
ThisWorkbook.Sheets("BOIM").Select
Application.ScreenUpdating = True

End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


John wrote:
I got this code from this board which opens my worksheet up at A1 on
a
certain worksheet. My problem is that it goes in to Debug if any of
the worksheets within the file are hidden. Is there a workaround?

Thanks

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
Next sh
ThisWorkbook.Sheets("BOIM").Select
Application.ScreenUpdating = True

End Sub

Thanks Frank


"Frank Kabel" wrote in message
...
Hi
try
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
if sh.visible then
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
end if
Next sh
ThisWorkbook.Sheets("BOIM").Select
Application.ScreenUpdating = True

End Sub

--
Regards
Frank Kabel
Frankfurt, Germany


John wrote:
I got this code from this board which opens my worksheet up at A1 on
a
certain worksheet. My problem is that it goes in to Debug if any of
the worksheets within the file are hidden. Is there a workaround?

Thanks

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Select
Application.Goto Reference:=sh.Range("a1"), Scroll:=True
Next sh
ThisWorkbook.Sheets("BOIM").Select
Application.ScreenUpdating = True

End Sub