VBA Script to Paste as Values all Cells with that are Red Font

[mp1021257]

Hi,

I was wondering if it is possible to write a quick script that will find all cells in a given worksheet (not the whole workbook) that have a red font color (RGB code 255, 0, 0), and paste those cells as values.

For context, I have a worksheet with a bunch of links to other worksheets in a workbook. All the links to other worksheets are colored red. I want to be able to delete those other worksheets without impacting my active worksheet. To do that, I would like to paste all the links to other worksheets as values, and then delete those tabs (since they are no longer referenced on the active worksheet). I was thinking that writing a script that finds all the red font cells and pastes them as values would work, but it would also work to have a script that pastes as values only the cells in an active worksheet that link to another worksheet.

Thanks for the help!

 

[My Aswer Is This]

Try this:

Sub check_For_cell_Red_Font()
Application.ScreenUpdating = False
Dim c As Range
    For Each c In ActiveSheet.UsedRange
        If c.Font.Color = RGB(255, 0, 0) Then c.Value = c.Value
    Next
Application.ScreenUpdating = True
End Sub