Application.Run - If Any Cell in Column W has an Error

[norts55]

Is there a way to run a macro from a macro with an If Statement?

What I am trying to do is run "Macro2" if any cell in Column W on Sheet "Sheet_1" contains and error.

If this can be done I will put it at the end of an existing macro I have.

Below is a very basic macro I have. I cannot figure out how to put an if statement into the Application.Run portion.

Sheets("Sheet_1").Select
Columns("W:W").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Application.Run "'" & ActiveWorkbook.Name & "'" & "!Macro2"

 

[johnnyL]

How about this? :

    Dim ErrorCount  As Long
    Dim rng         As Range
'
    Set rng = Sheets("Sheet1").Range("W1:W" & Sheets("Sheet1").Range("W" & Rows.Count).End(xlUp).Row)
'
    ErrorCount = Application.Evaluate("COUNTIF(" & rng.Address & ",IsError)")

    If ErrorCount > 0 Then
        Application.Run "'" & ActiveWorkbook.Name & "'" & "!Macro2"
    End If

 

[Fluff]

How about

   Dim Rng As Range
   Sheets("Sheet_1").Select
   On Error Resume Next
   Set Rng = Columns("W:W").SpecialCells(xlFormulas, 16)
   On Error GoTo 0
   If Not Rng Is Nothing Then
      Application.Run "'" & ActiveWorkbook.Name & "'" & "!Macro2"
   End If

 

[norts55]

I only tested johnnyL's and that gave me the results I was looking for. I am sure Fluff's works too but I haven't tested it.

Thank you both for the reply's. The knowledge from this group always amazes me.

 

[johnnyL]

Glad we could help @norts55.