你可以以此为基础

Option Explicit

Sub HelpHer()

    Dim lastrow As Long
    Dim ws As Worksheet
    
    With ActiveWorkbook
    
        Dim refDate As Date
            refDate = .Worksheets("Sheet1").Range("D2").Value
            
            For Each ws In .Worksheets
            
                Select Case ws.Name
                    Case "Sheet1", "Sheet2"
                    
                    Case Else

                        With ws
                        
                            .Rows("1:2").Insert
                            .Range("S2") = "OB"
                            .Range("R3") = "AD"
                            
                            Dim foundCel As Range
                                Set foundCel = Intersect(.UsedRange, .Range("I:I")).Find(what:=refDate, LookIn:=xlValues, lookat:=xlWhole)
                                
                                Dim okRun As Boolean
                                    Select Case True
                                        Case Not foundCel Is Nothing
                                            okRun = True
                                            
                                        Case MsgBox("date mismatch in sheet '" & .Name & "'" _
                                                    & vbCrLf & vbCrLf & "Do you still want to run macro 10?", _
                                                    vbYesNo) = vbYes
                                            okRun = True
                                            
                                        Case Else
                                            okRun = False
                                    End Select
                                          
                                        If okRun Then
                                            'run your macro
                                        End If
                                                        
                        End With
                
                End Select
            
            Next
        
    End With
        

End Sub

字符串

请试试看。

Option Explicit

Sub demo()
    Dim ws As Worksheet
    Dim sDate, c As Range
    Dim bMatch As Boolean, sMsg As String
    Const KEY_COL = "I"
    Const START_ROW = 2 ' Modify as needed, the first date in colum I
    sDate = Sheets("Sheet1").Range("D2").Value
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" Then
            bMatch = True
            With ws
                .Rows("1:2").Insert
                .Range("S2") = "OB"
                .Range("R3") = "AD"
                For Each c In .Range(.Cells(START_ROW, KEY_COL), .Cells(.Rows.Count, KEY_COL).End(xlUp))
                    If Not c.Value = sDate Then
                        bMatch = False
                        Exit For
                    End If
                Next
                If bMatch Then
                    Call Macro10
                Else
                    sMsg = "Date mismatch in " & .Name & "." & _
                        vbNewLine & "Do you still want to run macro 10?"
                    If MsgBox(sMsg, vbYesNo) = vbYes Then Call Macro10
                End If
            End With
        End If
    Next
End Sub

字符串