keyboard shortcut to switch between panels

That isn't supposed to happen, because each pane maintains its own Selection object. When I switch panes, with or without a macro, the cursor always goes to its previous position in that pane.

Still, it is possible to force the cursor to the previous position in case that isn't working for you. Here's a modified macro that should do it.

Dim Pane1Range As Range

Dim Pane2Range As Range

Sub SwitchPanes()

With ActiveDocument.ActiveWindow

    If .ActivePane.Index = 1 Then

        Set Pane1Range = .Panes(1).Selection.Range

        .Panes(2).Activate

        If Not Pane2Range Is Nothing Then

            Pane2Range.Select

        End If

    Else

        Set Pane2Range = .Panes(2).Selection.Range

        .Panes(1).Activate

        If Not Pane1Range Is Nothing Then

            Pane1Range.Select

        End If

    End If

End With

End Sub

Note that the two Dim statements must appear before the Sub statement (this is somewhat unusual, but it's necessary to make the variables keep their values from one run of the macro to the next).

This macro seems to work, although I'm not quite confident that it will always activate the correct pane regardless of what other panes are visible. If it misbehaves, post back and tell me what happened.

Sub SwitchPanes()

With ActiveDocument.ActiveWindow

    If .ActivePane.Index = 1 Then

        .Panes(2).Activate

    Else

        .Panes(1).Activate

    End If

End With

End Sub