Chip, thank you very much, that did the trick

Greg
Chip Pearson wrote:
Try something like

Sub ToggleViews()
Static ViewName As String
If ViewName = "View1" Then
ThisWorkbook.CustomViews("View2").Show
ViewName = "View2"
Else
ThisWorkbook.CustomViews("View1").Show
ViewName = "View1"
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"GregR" wrote in message
ps.com...
Is there macro lnaguage to toggle between custom views? TIA

Greg