Need macro to search for key word in column and then run another macro if found

[Atorado]

Hi. I need a macro that will search for the word "PAID" in cells Y4:Y42 and if the key word is present run another macro (which will take certain information such as name and address and enter it into a tracker file). If the key word is not present, then no action is taken. I need this task to repeat for each sheet of the workbook (up to 44 sheets in the largest workbook). I'm not experienced at VBA and don't know how to assign variables properly. I'm thinking something alone these line would work, if I knew how to assign variable: [code] Sheets("TrimA1").Select
If TrimA1.CountIf("Y4:Y42", "LATE") > 0 Then
Run Macro12
End If
Sheets("TrimA2").Select [code]
... and start over again.

Forgive any breaches of etiquette. This is my first time to post on a forum.

[Trebor76]

Hi Atorado,

Welcome to the forum!!

See how this goes:

Option Explicit
Sub Macro1()

    Dim wsSheet As Worksheet
    
    Application.ScreenUpdating = False
    
    For Each wsSheet In ThisWorkbook.Sheets

        If wsSheet.Application.WorksheetFunction.CountIf(wsSheet.Range(("Y4:Y42")), "LATE") > 0 Then 'COUNTIF function is not case sensitive
            Call Macro12
        End If
        
    Next wsSheet
    
    Application.ScreenUpdating = True

End Sub

Regards,

Robert