Changing font colors of cells with errors in VBA

[Jon von der Heyden]

Hi,

I have the following code:

Sub Error_Hide()
    
    Dim C As Range
        
    For Each C In Selection
        
        If IsError(C.Value) Then
            C.Font.ColorIndex = C.Interior.ColorIndex
        End If
        
    Next C
    
End Sub

This works as long as I have an interior color applied, but unable to set the font property if none has beeen assigned. Could somebody suggest a fix please?

Cheers,
Jon

 

[BrianB]

Like this ... ?

Sub Error_Hide()
    Dim C As Range
    For Each C In Selection
        If IsError(C.Value) Then
            If C.Interior.ColorIndex = xlNone Then
                C.Font.ColorIndex = 2
            Else
                C.Font.ColorIndex = C.Interior.ColorIndex
            End If
        End If
    Next C
End Sub

 

[Jon von der Heyden]

Yep, that's perfect, thanks Brian.