Highlighting All the Cells of Active sheet which contains a particular String:

[littleiitin]

Thanks Admin,

All Points accepted and incorporated.

Your Find All function is Awesome.

Thanks for All your Guidance.

Regards
Rahul

[Rasm]

If you want all string comparisons to be case insensetive then use

Option Compare Text

in the declaration section - so very top line of code.

Now you can forget about upper/Lower case conflicts

[littleiitin]

Yes Rasm,

However in some cases you want this differentiation of Upper and Lower case but for one module you need to avoid , then this is useful.

Thanks

[littleiitin]

Here is simplest Find All Method

Sub FindallM()
    
    Dim rngFind         As Range
    Dim rngWhole        As Range
    Dim rngUnion        As Range
    Dim rngFirstFind    As Range
    Dim rngFirst
    
    Dim strFind     As String
    On Error Resume Next
    strFind = InputBox("Please Enter string to find")
    If Err.Number = 13 Then
        GoTo x1:
    End If
    
    Set rngWhole = ActiveSheet.UsedRange
    Set rngFind = rngWhole.Find(strFind, , , xlPart, , , False)
    If Not rngFind Is Nothing Then
        Set rngUnion = rngFind
        Set rngFirst = rngFind
        Do
            On Error Resume Next
            Set rngFind = rngWhole.FindNext(rngFind)
            Set rngUnion = Union(rngUnion, rngFind)
         Loop Until rngFind.Address = rngFirst.Address
         Err.Clear: On Error GoTo 0: On Error GoTo -1
         rngUnion.Select
    End If
x1:
End Sub