How to make A1 the active cell in all visible worksheets ?

[Luc]

......so that when i activate the sheet A1 is the cell in the upper left corner of my screen.

Thanx

 

[Patrick Molloy]

in the dev environment (ALT+F11) open the project explorer (Ctrl+R), then right click the icon for ThisWorkbook and select View Code
add this code|:

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1").Select
End Sub
.....so that when i activate the sheet A1 is the cell in the upper left corner of my screen.

Thanx

 

[Mike H]

Hi,

ALT+F11 to open VB editor. Double click 'ThisWorkbook' and paste the code in
on the right

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Goto ActiveSheet.Range("A1"), scroll:=True
End Sub

Mike

 

[Luc]

Patrick, Mike : Thanks for your help !!!!

Luc

Hi,

ALT+F11 to open VB editor. Double click 'ThisWorkbook' and paste the code
in
on the right

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Goto ActiveSheet.Range("A1"), scroll:=True
End Sub

Mike