Screen & Cursor Position after VBA Code Run

[OldSwimmer1650]

After a VBA macro run (runs every 1min) the macro stops and leaves me on a tab(one that I specified in the VBA code, call it "SummaryPage") but instead of being at cell A1(upper left corner) I'm many cells & columns off in blank cell space. If I select another tab then select the tab "SummaryPage" it places cell A1 in upper left corner.

When the code starts I save the name of the sheet I'm on
Currentsheet = ActiveSheet.Name 'this is sheet I'm currently on

The last lines of code
Sheets(Currentsheet).Select
Application.GoTo reference:=Range("A1"), scroll:=True
Range("a1").Select
Currentsheetcell.Activate

 

[Vogateer]

Do you have events or other kinds of updates turned off in the rest of the code?

It seems like if you have

Currentsheet = ActiveSheet

you could use:

Application.Events = True
Currentsheet.Activate
Currentsheet.Range("A1").select

 

[Peter_SSs]

The very last line of code that you have shown is

Currentsheetcell.Activate

.. but you have not shown or told us how Currentsheetcell is defined or populated.

Sheets(Currentsheet).Select
Application.GoTo reference:=Range("A1"), scroll:=True
Range("a1").Select

Instead of those three lines all you should need is

 Application.GoTo reference:=Sheets(Currentsheet).Range("A1"), scroll:=True

 

[OldSwimmer1650]

    Currentsheet = ActiveSheet.Name                     'this is sheet I'm currently on
    Set Currentsheetcell = ActiveCell

 

[OldSwimmer1650]

Peter_SSs, tyvm for the help. It worked. It is contributors on this site like you that make it work! I know enough to be dangerous , but I keep learning everyday from inputs like yours.

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.