如何根据包含该字符串的excel范围验证输入框中输入的字符串？

Sub ValidateInput()
    Dim searchString As String
    Dim searchRange As Range
    Dim cell As Range
    
    ' 获取输入框中的字符串
    searchString = InputBox("请输入需要验证的字符串：")
    
    ' 获取包含字符串的范围
    Set searchRange = Application.InputBox("请选择包含字符串的范围：", Type:=8)
    
    ' 遍历范围中的每个单元格，检查是否包含输入的字符串
    For Each cell In searchRange
        If InStr(1, cell.Value, searchString) > 0 Then
            ' 如果包含字符串，则在单元格中添加验证通过的标记
            cell.Value = cell.Value & " (验证通过)"
        End If
    Next cell
End Sub