Thread: Search cell with specify ColorIndex

Range SearchRng is a predefined range that I have!

If I want to search SearchRng for text "Test" then I would use this code

Set rFind = SearchRng.Find("Test", LookIn:=xlValues, Lookat:=xlWhole, _
SearchOrder:=xlNext, MatchByte:=True)

However, instead of "Test", I want to find Cell with Interior.ColorIndex = 4

Would you help please!?

Thank you,

NTB

Hi NTB, if you want to find a cell with a particular interior colour, than I would go with something like

Sub NTB()
    Dim rFind As Range, SearchRng As Range
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    Set SearchRng = ws.Range("A2:D5")
    
    For Each rFind In SearchRng
        If rFind.Interior.ColorIndex = 4 Then
            MsgBox "Green found in range " & rFind.Address
        End If
    Next rFind
End Sub

You will have to substitute the range I used with yours and then add what you want to do to the cells once you find them though. Let me know if this helps.