Run Macro A if Cell A1 is equal to A...

[rage300]

I have a series of 4 macros that I need to run depending on which week of the month it is. I would like to automate this process by entering in the week number in Cell A1 and clicking a button that says "go". Can I set up a macro to run other macros depending on this value?

Thanks,

Jason

 

[Jonmo1]

sub checkmonth()
If Range("A1").Value = 1 then application.run "macro1name"
If Range("A1").Value = 2 then application.run "macro2name"
If Range("A1").Value = 3 then application.run "macro3name"
etc...

 

[VoG]

Right click the sheet tab and select View Code. Copy and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address(False, False) <> "A1" Then Exit Sub
Select Case Target.Value
    Case 1:
        Call macroA
    Case 2:
        Call macroB
End Select
End Sub

Adjust to the values you expect in A1 and the macro names, then close the code window and test by changing the value in A1.

 

[rage300]

You're a rockstar man. That was the easiest thing I did all day. And thanks for such a quick response.


Have a great day.