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
|