Position Cursor to A1

[Dennis Damsgaard]

How do I position the cursor to cell A1? I tried:

Sub PositionCursorToUpperLeft()
Dim ws As Worksheet
application.ScreenUpdating = False
For Each ws In Worksheets
ws.Activate
ws.Range("A1").Select
Next ws
' --- Go back to the first sheet.
Worksheets("Select").Activate
application.ScreenUpdating = True
End Sub

This almost works, but fails on the last sheet.

"A1" is selected, but the worksheet window is positioned with "A532" at the
top of the window. What I'm trying to get to is to have the worksheet window
view begin at "A1".

Thanks in advance for your assistance.

 

[Ron de Bruin]

Hi Dennis

Try this

Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Application.Goto ws.Range("A1"), True
Next
End Sub

 

[DennisD]

Oh! Very cool. Thanks for your help.



*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Harald Staff]

Oh! Very cool. Thanks for your help.

*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!

They reward you for being helped for free ?

Best wishes Harald