Private Sub Workbook_Open()
Dim this As Worksheet
Dim sh As Worksheet

Set this = ActiveSheet
For Each sh In ThisWorkbook.Worksheets
sh.Activate
Range("A1").Select
Next sh
this.Activate
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
__________________________________
HTH

Bob

"Trish Smith" wrote in message
...
Hi everybody,

I'm hoping that someone can show me how to select a1 on each sheet of a
workbook so that all users don't have to scroll up when they re-open
worksheet.

Thanks for your help
--
Trish