Returning to a previous location

[Guest]

In my workbook I have created some sheets that are used for special
calculations which I have hidden because they are not always needed (and I
don't know how to make a VBA message box that will handle the calculations).
I have managed to open a hidden sheet and close it when done but I wind up
on the last visible sheet and I want to go back where I started. I have
tried numerous ways but without success. Can any one help me out.

TIA Steve H

 

[Chip Pearson]

Steve,

Try something like the following:

Dim SaveTLC As Range
Dim SaveSelection As Range

Sub SaveLocation()
Set SaveTLC = ActiveWindow.VisibleRange(1, 1)
Set SaveSelection = Selection
End Sub
Sub ReturnLocation()
Application.Goto SaveTLC, True
Application.Goto SaveSelection, False
End Sub

Call the SaveLocation procedure prior to executing your code, and then call
ReturnLocation after your code is finished to return to the original
location.

 

[Guest]

Works like a champ! Thanks, Chip.

Steve

Steve,

Try something like the following:

Dim SaveTLC As Range
Dim SaveSelection As Range

Sub SaveLocation()
Set SaveTLC = ActiveWindow.VisibleRange(1, 1)
Set SaveSelection = Selection
End Sub
Sub ReturnLocation()
Application.Goto SaveTLC, True
Application.Goto SaveSelection, False
End Sub

Call the SaveLocation procedure prior to executing your code, and then call
ReturnLocation after your code is finished to return to the original
location.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com (e-mail address removed)