check if a certain string exists in entire workbook

[basb87]

Dear people,

Does anyone know a VBA solution to check whether a certain string exists in a whole workbook? (true or false would be enough for me)

It should not match entire cell content, because sometimes there is a space in front or behind the string that I am looking for.

Best regards,

Bas

 

[wideboydixon]

Something like this:

Public Function StringExists(searchString As String) As Boolean

Dim thisSheet As Worksheet
Dim findRange As Range

StringExists = False

For Each thisSheet In ThisWorkbook.Worksheets
    Set findRange = thisSheet.Cells.Find(What:=searchString, LookIn:=xlValues, LookAt:=xlPart)
    If Not findRange Is Nothing Then
        StringExists = True
        Exit For
    End If
Next thisSheet

End Function

Example:

Debug.Print StringExists("Search String")

WBD

 

[basb87]

Something like this:

Public Function StringExists(searchString As String) As Boolean

Dim thisSheet As Worksheet
Dim findRange As Range

StringExists = False

For Each thisSheet In ThisWorkbook.Worksheets
    Set findRange = thisSheet.Cells.Find(What:=searchString, LookIn:=xlValues, LookAt:=xlPart)
    If Not findRange Is Nothing Then
        StringExists = True
        Exit For
    End If
Next thisSheet

End Function

Example:

Debug.Print StringExists("Search String")

WBD

Thank you very much