如果单元格是红色的，它会生成一个消息框，但如果不是，它会调用运行另一个宏

Question

我正在尝试构建一个工作簿，如果某个单元格范围具有 0 值，则该工作簿设置为有条件地格式化，该范围是动态的，具体取决于在任何给定日期输入到工作表中的数据。所以，我想我可以有条件地将单元格格式化为在单元格为 0 的情况下变成红色。我通过执行此宏来做到这一点

Sub ColorTACsErrorCheck()
'
' Checks for any TACs Errors with 0 value
'

'
    Sheets("TACS Data").Select
    Range("N2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = vbRed
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = vbRed
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

它工作完美，并且适用于动态范围。

我尝试使用下面的代码让它在其中一个单元格是红色的情况下生成一条消息，它确实如此，但我希望它不运行我为工作簿的其余部分所拥有的实际宏，如果它有一个红色单元格。然而，它似乎无论如何都会调用宏。

Sub Message()
'
' Message
'

'
    Sheets("TACS Data").Select
    Dim oneCell As Range, newNote As String
    For Each oneCell In Sheets("TACS Data").Range("N3:N100")
    With oneCell
        If oneCell.DisplayFormat.Interior.Color = vbRed Then
            MsgBox "A carrier did not clock to the street. Please correct this error and rerun Employee Moves report in TACs."
            If newNote = "False" Then
            Exit Sub
        Else: Call Run
        End If
        End If
    End With
    Next oneCell
End Sub

我试图使工作簿尽可能用户友好，以便不懂 Excel 的人只需点击“运行”，如果没有错误，它会运行整个报告以获得结果，但如果有错误它只是告诉他们基本上再试一次。

这可能吗？或者我应该在“运行报告”按钮之前点击一个“检查错误”按钮？