Sub Toggle_Model_Vault()
On Error Resume Next

If ThisApplication.ActiveDocument.BrowserPanes.ActivePane.Name = "Model" Then
ThisApplication.ActiveDocument.BrowserPanes.Item("Vault").Activate
Exit Sub
End If

If ThisApplication.ActiveDocument.BrowserPanes.ActivePane.Name = "Vault" Then
ThisApplication.ActiveDocument.BrowserPanes.Item("Model").Activate
Exit Sub
End If


End Sub