macro : to Identify a color

deven_deesha

Board Regular
Joined
Jan 5, 2006
Messages
134
Hi,

I want to find a text which is in Red Color. How can I do that? Is it possible?


Thanks,
Shriswaroop
 

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.

lozzablake

Well-known Member
Joined
Dec 15, 2005
Messages
818
You can run a macro something like below. If you are looking to check for a specific range than you can restrict the search further. Also this will give a message for each instance that it finds. You could just stop at the first instance and select the cell

Code:
Sub CheckForRed()
    Dim myCell As Range

    For Each myCell In Sheets("try").UsedRange   'change for your sheet name
        If myCell.Font.ColorIndex = 3 Then
        
            MsgBox "range " & myCell.Address & " has red text"
        End If
    
    Next myCell
'
    
End Sub
 

Forum statistics

Threads
1,136,267
Messages
5,674,730
Members
419,523
Latest member
Urnovio

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top