Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
Sub SearchStrings()
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        v = r.Value
        If InStr(v, "TEST") > 0 Or InStr(v, "StrInG") > 0 Then
        'Note is CASE Sensitive, but will return true for cell value of "TEST-foobar"
            MsgBox "StrFound"
        End If
    Next r
End Sub

  • No labels