Mike Schaeffer's Blog

Lately, I've been finding myself spending lots of time toggling between two Excel spreadsheets to make edits. This little macro makes it easy in Excel 2000 to toggle between two spreadsheet windows. I reccomend you bind it to a keystroke.

Option Explicit

Dim lastWindow As Variant

Sub HereAndThere()
    If IsEmpty(lastWindow) Then
        Set lastWindow = ActiveWindow
    Else
        Dim currentWindow As Window
        Set currentWindow = ActiveWindow

        lastWindow.Activate

        Set lastWindow = currentWindow
    End If
End Sub

Here's how you use it:

• Run the macro once to save your current location.
• Switch to your other spreadsheet
• Now, running the macro will switch back and forth betweeen the two worksheets.

The "saving excursions" in the title is a reference to the save-excursion special form in Emacs Lisp. This macro isn't quite the same (and not nearly as powerful), but it reminded me of the Emacs feature. If it turns out to be useful, I might generalize my little macro to include some of the capabilities of Emacs' save-excursion.