How to make than A1 be selected when we open every worksheet ?

[francois.lemarie]

Hi,

I use files that sometimes I use and forget to come back to A1. When I open back this files, I want every worksheet select A1 in order not to have to scroll down and go left all the time.

Any way to do it ?

PD : It must be automaticall. I don't want to have all the time to press CTrlQ.

 

[njimack]

Paste the following into the module for each sheet you want this to apply to:

Private Sub Worksheet_Activate()
Cells(1, 1).Select
End Sub

 

[francois.lemarie]

Thansk a lot Njimack.

 

[MickG]

Hi, This code must go in the "Thisworkbook" Module.
Click "Alt+F11" Code window appears, Click "Ctrl +R" , project window appears.
Scroll down to "This workBook", double Click , Past code in New Vb Window.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[a1].Select
End Sub

Regards Mick

 

[francois.lemarie]

Thanks a lot MikeG, answer efficient and simple !! Just what I need.