Opening worksheets in cell A1

[scouse]

I have the following code in My Workbook. It is supposed to do two things:

1) Ensure the User always goes to the opening worksheet (Top) when they open up the workbook

2) Ensure the user always goes to cell A1 of each worksheet when they open each worksheet


Private Sub Workbook_Open()
Sheets("Top").Select
Dim X As Integer

Application.ScreenUpdating = False
For X = 1 To Sheets.Count
If Sheets(X).Visible = True Then
Sheets(X).Select
Range("A1").Select
End If
Next X
Sheets(1).Select
Application.ScreenUpdating = True
End Sub

It does number 1 but doesnt do number two - can anyone help with the code

regards

Scouse

 

[SIXTH SENSE]

hi!
on each worksheet paste this code!

Private Sub Worksheet_Activate()
Range("a1").Select
End Sub

 

[scouse]

Excellent!

its always the simple solution...regards

scouse

 

[Mudface]

As an alternative to putting it into each worksheet module, you can also put code in the ThisWorkbook module to apply to all sheets-

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

On Error Resume Next ' In case it's a chart sheet
Sh.Range("A1").Select

End Sub