Leaving the cursor at a known position on a worksheet

[John]

How do I correct the following code to not give a 1004 error:
NewStatusSheetName = "newsheetname"
....
Sheets(NewStatusSheetName).Range("$A$1").Select
....
My macro jumps between two sheets and I want to leave the cursor at the top
of the new sheet at the end. I found that the following works, but I don't
know if a Go To is the best solution:
Application.Goto Sheets(NewStatusSheetName).Range("$H$1")

I appreciate your help, -John

 

[Per Jessen]

Hi

Set NewStatusSheet = Worksheets("NewSheetName")
NewStatusSheet.Range("$A$2").Select

or

NewStatusSheetName = "NewStatusSheet"
Worksheets(NewSheetName).Activate
Range("$A$2").Select

Hopes this helps.