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

Thanx

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
"Luc" wrote in message ...
.....so that when i activate the sheet A1 is the cell in the upper left corner of my screen.

Thanx

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" wrote:

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

Thanx

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

Luc


"Mike H" schreef in bericht
...
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" wrote:

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

Thanx