Positioning the cursor programatically

  • Thread starter Thread starter Jeff Smith
  • Start date Start date
J

Jeff Smith

Hi,
I have a multi-sheet workbook where all "navigation" (from sheet to sheet)
is controlled by macros. The user is allowed (and indeed is encouraged) to
scroll up/down/left/right. However, Excel remembers the last position or
view for a particular spreadsheet. This is not desired and I would like all
entries to a sheet or range within a sheet to have "Cell A1" (or the left
uppermost cell in a range) positioned at the top, left-most cell on the
range viewed on the monitor.

Can someone help here? I'm sure it is simple but I can find no references
in the extensive VBA sites around.

Thanking you in anticipation,

regards

Jeff Smith
 
go to the workbook event module (thisworkbook in the project explorer) and
us an event like this:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Goto Sh.Range("A1"), True
End Sub
 
Back
Top