How can I call macro with conditions

[sbv1986]

Hi all

I have over 15 macros only run with conditions that:

If sheets(A).range(A2)<>"" then call macrox
If sheets(B).range(A2)<>"" then call macroy
...........
If sheets(C).range(A2)<>"" then call macroz

How can I get all in one macro? thanks./.

 

[Michael M]

you could loop through the sheets and check a2
something like

Sub MM1()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Activate
        Select Case ws.Name
    Case Is = "Sheet1"
        If Range("A2").Value <> "" Then Call a
    Case Is = "Sheet2"
            If Range("A2").Value <> "" Then Call b
    Case Is = "Sheet3"
        If Range("A2").Value <> "" Then Call c
    End Select
Next ws
End Sub