Hello from Steved

Thankyou I got the answer .

Application.Goto Reference:=Worksheets(1).Range("A5")

"Steved" wrote:

Hello from Steved

Sub SaveNClose()
Application.Goto Reference:=Worksheets(1).Range("A5").Activate
ActiveWorkbook.Close True
End Sub

Below is giving an error Reference is not valid
Application.Goto Reference:=Worksheets(1).Range("A5").Activate

What do I need to correct please.

Thankyou.