Perfect! Thanks. I knew why it was going to the Summary sheet but did not
know how to get it to enter the name of the last active sheet in cell A1 of
the Summary sheet without going there. Thanks again.

"FSt1" wrote:

hi
bob is far more experienced than me but to try and answer your delema....
this line is what is sending you to summary.....
Application.Goto Sheets("Summary").Range("A1")
i.e. goto summary...your are sending it to summary.
what i did is eliminate this line and replaced it with this....
Sub FreezePreviousWorksheet()
Previous = ActiveSheet.Name
Sheets("Summary").Range("A1").Value = Previous
End Sub

Sub ReturnToPreviousWorksheet()
Previous = Sheets("Summary").Range("A1")
Sheets(Previous).Select
End Sub

worked in xp. not sure about 07. i haven't worked with that yet.

regards
FSt1

"Carl" wrote:

I am using the following two macros to return the user to the last active
sheet after visiting another sheet (when they leave the first sheet the first
macro runs; when wanting to return, they run the second). The problem is that
it forces them to go momentarily to the sheet "Summary" first. Is there a
better way to do this? I searched all the other strings and could not find
something that would work. Hiding the "Summary" sheet did not work either.
Thanks in adavance,
Sub FreezePreviousWorksheet()
Previous = ActiveSheet.Name
Application.Goto Sheets("Summary").Range("A1")
ActiveCell = Previous
End Sub
Sub ReturnToPreviousWorksheet()
Previous = Sheets("Summary").Range("A1")
Sheets(Previous).Select
End Sub