VBA -在if语句中，检查字符串是否为不同工作表的列中的字符串之一

Sub CheckStringInWorksheets()
    Dim targetString As String
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    targetString = "目标字符串"
    
    For Each ws In ThisWorkbook.Worksheets
        Set rng = ws.UsedRange
        
        For Each cell In rng
            If InStr(1, cell.Value, targetString, vbTextCompare) > 0 Then
                MsgBox "字符串存在于工作表 " & ws.Name & " 的列 " & cell.Address
                Exit Sub ' 如果找到了匹配的字符串，可以选择退出循环
            End If
        Next cell
    Next ws
    
    MsgBox "字符串不存在于任何工作表的列中。"
End Sub