View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Incidental Incidental is offline
external usenet poster
 
Posts: 226
Default Multipage dialogbox

Hi Patrick

The code below would be one way of doing it

Option Explicit
Dim MyStr As String

Private Sub MultiPage1_Change()

With MultiPage1
MyStr = .Pages(.Value).Caption
End With

With ActiveWorkbook
.Sheets(MyStr).Select
End With

End Sub

Hope this helps

Steve