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

L

Luc

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

Thanx
 
P

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
 
M

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
 
L

Luc

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

Luc


Mike H said:
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
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Screen scrolling to show active cell 4
Find value of active cell in other visible worksheets 8
Set Active Cell to A1 on Open Q 3
Sheet View Position 3
Button to change view location 11
lastrow function help 6
Event Triggered in Wrong Sheet 4
Range to an Array doesn't contain values 6

Top