Thread: Toggle Custom Views
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
  
Posts: 7,247
Default Toggle Custom Views
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



Reply With QuoteReply With Quote