Hi Adam,

Try something like:

'=============
Public Sub Tester001()
Dim rng As Range

Set rng = ActiveCell

'your code, e.g.:
ActiveSheet.Next.Select

Application.Goto rng

End Sub
'<<=============


---
Regards,
Norman


"Adam" wrote in message
...
How do I save a cells location in VB so I can chnge the active cell to
another sheet and then return later on the the saved cells location.

Thanks

Adam