Sub ShowMenu1()
    UserForm1.Show
End Sub

Sub ShowMenu2()
    UserForm2.Show
End Sub

Sub Macro1()
    MsgBox "This is macro 1.", vbInformation, "Demo"
End Sub

Sub Macro2()
    MsgBox "This is macro 2.", vbInformation, "Demo"
End Sub

Sub Macro3()
    MsgBox "This is macro 3.", vbInformation, "Demo"
End Sub

Sub Macro4()
    MsgBox "This is macro 4.", vbInformation, "Demo"
End Sub

Sub Macro5()
    MsgBox "This is macro 5.", vbInformation, "Demo"
End Sub

Sub Macro6()
    MsgBox "This is macro 5.", vbInformation, "Demo"
End Sub