Hello from Steved

The below macro works as I require.
Please If I am working in sheet2 how do I get the cursor please to goto A5

Sub SaveNClose()
ActiveWindow.SmallScroll ToRight:=-25
Application.Goto Reference:=Worksheets(1).Range("A5")
ActiveWindow.SmallScroll ToRight:=-25
ActiveWorkbook.Close True
End Sub
Thankyou.