I don't think there is a way to get the custom view. You can list
existing views with code like

Dim Ndx As Long
With ThisWorkbook.CustomViews
For Ndx = 1 To .Count
Debug.Print .Item(Ndx).Name
Next Ndx
End With


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



"Paul" wrote in message
...