Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Sub CommandButton1_Click()
ShowMyForm Page:=1
End Sub
Private Sub CommandButton2_Click()
ShowMyForm Page:=2
End Sub
Private Sub CommandButton3_Click()
ShowMyForm Page:=3
End Sub
'(etc.)
Option Explicit
Public MultiPageNumber As Integer
Sub ShowMyForm(Page As Integer)
MultiPageNumber = Page
UserForm1.Show
End Sub
Option Explicit
Private Sub UserForm_Initialize()
MultiPage1.Value = MultiPageNumber - 1
End Sub
Private Sub CommandButton1_Click()
Me.Hide
End Sub