I'm needing some help with the macro below. I'm not sure why this will not work correctly. If the ActiveSheet is a certain "bracket" then I need it to run the corresponding macro only. I first tried it with IF instead of ELSEIF before each condition, but it ran all the macros. Now it won't run any of them. I'm probably missing something easy, but I can't figure it out. I would truly appreciate some help with this.
Sub Reset()
On Error Resume Next
Dim Response As Integer
Response = MsgBox(prompt:="WARNING! Are you absolutely, positively SURE you want to RESET ???", Buttons:=vbYesNo)
If Response = vbNo Then MsgBox "WOW, that was close!"
If Response = vbYes Then
On Error Resume Next
Application.ScreenUpdating = False
If ActiveSheet = ("4Man_Bracket") Then Application.Run ("Record4ManWinners")
ElseIf ActiveSheet = ("4Ladies_Bracket") Then Application.Run ("Record4LadiesWinners")
ElseIf ActiveSheet = ("Mens_Dbls_Bracket") Then Application.Run ("RecordMensDblsWinners")
ElseIf ActiveSheet = ("Ladies_Dbls_Bracket") Then Application.Run ("RecordLadiesDblsWinners")
ElseIf ActiveSheet = ("Mixed_Trips_Bracket") Then Application.Run ("RecordMixedTripsWinners")
ElseIf ActiveSheet = ("Mens_Single_Bracket") Then Application.Run ("RecordMensSingleWinners")
ElseIf ActiveSheet = ("Ladies_Single_Bracket") Then Application.Run ("RecordLadiesSingleWinners")
End If
' Then the rest of the macro runs from here....
Thank you for any help you can offer to get me over this bump!
Bookmarks