I created a userform that is a menu that has a command button for each sheet in the workbook.
I entered the code below and have gotten it where the menu will open with the workbook staying hidden however, even you click on the command button nothing happens. I need it to open the selected sheet so it can be edited while still keeping the menu open.
I've searched through other posts on multiple sites and can't find a solution to make it work better.
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets("Availabilty").Activate
End Sub
Private Sub CommandButton2_Click()
ThisWorkbook.Sheets("Assignments").Activate
End Sub
Private Sub CommandButton3_Click()
ThisWorkbook.Sheets("Daily Schedule").Activate
End Sub
Private Sub CommandButton4_Click()
ThisWorkbook.Sheets("Sign-Up").Activate
End Sub
Private Sub CommandButton5_Click()
ThisWorkbook.Sheets("Sign-Up Tracker").Activate
End Sub
Private Sub CommandButton6_Click()
ThisWorkbook.Sheets("Gap Coverage Tracker").Activate
End Sub
Private Sub CommandButton7_Click()
ThisWorkbook.Sheets("Control Schedule & Sign-Up").Activate
End Sub
Private Sub CommandButton8_Click()
ThisWorkbook.Sheets("Help").Activate
End Sub
Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
End Sub
Private Sub UserForm_Click()
End Sub
Bookmarks