Find Cells of Certain Text Color Only within the Range Selected

[norts55]

I have a macro that someone on this forum helped me with a while back. The macro works perfectly but now I need to make a modification and the code is way above my skill level. In the current form this macro searches my entire worksheet, finds and selects all cells that are formatted with the text color RGB(1, 2, 2). I need to modify this macro so it only finds and selects cells within my current range of cells that I have selected. So, basically, I no longer want to search the entire sheet, I only want to search within my current selected range. Can someone please help with this? Thanks in advance.

Sub a_0_0_Change_Colors_to_Automatci()'
' a_0_0_Change_Colors_to_Automatci Macro
'


'
    Dim rngFound As Range
    Dim rngAll As Range
    Dim strFirst As String
    Dim lColor As Long
    
    lColor = RGB(1, 2, 2)
    
    With Application.FindFormat
        .Clear
        .Font.Color = lColor        'Search for font color
        '.Interior.Color = lColor   'Search for background color
    End With
    
    With ActiveSheet.UsedRange
        Set rngFound = .Find("", .Cells(.Cells.Count), SearchFormat:=True)
        If Not rngFound Is Nothing Then
            Set rngAll = rngFound
            strFirst = rngFound.Address
            Do
                Set rngAll = Union(rngAll, rngFound)
                Set rngFound = .Find("", rngFound, SearchFormat:=True)
            Loop While rngFound.Address <> strFirst
            
            rngAll.Select
            
            Set rngAll = Nothing
            Set rngFound = Nothing
            strFirst = vbNullString
        Else
            MsgBox "No cells found with font color " & lColor & ".", , "No Matches"
            'MsgBox "No cells found with background color " & lColor & ".", , "No Matches"
        End If
    End With
    
    Application.FindFormat.Clear
End Sub

 

[L. Howard]

Looks like you only need to change...

With ActiveSheet.UsedRange

to

With Selection

Howard

 

[norts55]

Thank you L.Howard. That works. I can mark this as solved, but I do have another question with this macro, which maybe I should start a new thread, tell me if that is the case.

Here is the question...

If I want to find multiple colors within my selection is that possible? I need to find text color RGB(1, 2, 2), text color RGB(13, 13, 13), text color RGB(38, 38, 38), I have a few more but if I can figure out how this works I should be able to add the others.

Again, thank you L.Howard for the previous answer and thanks anyone who might have the answer to my next step.

 

[L. Howard]

Yes, I think that would merit a new thread.

Howard

 

[norts55]

Ok. Thanks Again Howard.