Sub SwapPanes()
If ActiveWindow.Panes.Count > 1 Then
If ActiveWindow.ActivePane.Index = 1 Then
ActiveWindow.Panes(2).Activate
Else
ActiveWindow.Panes(1).Activate
End If
End If
End Sub
F6 and Shift-F6
HTH,
--
Gary Brown
gary_brown@ge_NOSPAM.com
If this post was helpful, please click the ''''Yes'''' button next to
''''Was this Post Helpfull to you?".
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.