Multiple Macros Not Working

[MyFirstMacro]

I have several macros that I want to run with one macro. I have tried all of the following:

Sub Main()
Call Macro1
Call Macro2
Call Macro3
End Sub

Sub Main2()
Macro1
Macro2
Macro3
End Sub

Sub Main3()
Application.Run "'WorkbookName'!Macro1"
Application.Run "'WorkbookName'!Macro2"
Application.Run "'WorkbookName'!Macro3"
End Sub

Sub Main4()
If Range("$C$2").Value<>OldVal Then
Call Macro1
End If
If Range("$C$3").Value<>OldVal Then
Call Macro2
End If
If Range("$C$4").Value<>OldVal Then
Call Macro3
End If
End Sub
(The 4th one is supposed to run the macros only if their respective cell values change, I don't really care about this option but I'm just trying everything.)

In ALL 4 cases, the "Main" macro only runs Macro1 and then stops. I know that my submacros are right (Macro1, Macro2, Macro3) because I have tested them all separately. And, if I switch the order around in Main (to run Macro2, then Macro3, then Macro1) it runs Macro2 only and then stops.

How do I make it run all the macros???

As my username indicates, this is my first time ever writing macros from scratch. While I think I've learned a lot since yesterday afternoon, please assume I know nothing.

Thank you!!!

 

[Gary McMaster]

Just a guess:

Have you used the "End" statement in Macro1, 2, or 3?

You should post the code for one, or all of the macros that run by themselves.

Gary

 

[MyFirstMacro]

Here's an example:

Sub SERVICES3AND4()
If Cells(10, 3) = "Show" Then
Sheets("All (2)").Select
Columns("V:W").Select
Selection.EntireColumn.Hidden = False
ElseIf Cells(10, 3) = "Hide" Then
Sheets("All (2)").Select
Columns("V:W").Select
Selection.EntireColumn.Hidden = True
End If
End Sub

and another:

Sub Service2()
If Cells(9, 3) = "Show" And Cells(2, 3) = "3-11f" Then
Sheets("All (2)").Select
Columns("T:T").Select
Selection.EntireColumn.Hidden = False
Columns("U:U").Select
Selection.EntireColumn.Hidden = True
ElseIf Cells(9, 3) = "Show" And Cells(2, 3) = "4-11a" Then
Sheets("All (2)").Select
Columns("U:U").Select
Selection.EntireColumn.Hidden = False
Columns("T:T").Select
Selection.EntireColumn.Hidden = True
ElseIf Cells(9, 3) = "Show" And Cells(2, 3) = "side-by-side" Then
Sheets("All (2)").Select
Columns("T:U").Select
Selection.EntireColumn.Hidden = False
ElseIf Cells(9, 3) = "Hide" Then
Sheets("All (2)").Select
Columns("T:U").Select
Selection.EntireColumn.Hidden = True
End If
End Sub

Thanks!

 

[Gary McMaster]

I don't see anything obvious. Maybe it has something to do with all the "Select" & "Selection" wherein you may be trying to select something that's hidden (though that should throw an error)

Try getting rid of the Select & Selections similar to this:

Sheets("All (2)").Select
Columns("T:T").Select
Selection.EntireColumn.Hidden = False

With something like this:

Sheets("All (2)").Range("T:T").EntireColumn.Hidden = False

Gary

 

[MyFirstMacro]

That worked!!!

Thank you so much! I would have never figured that out!