Run Time Error 48-help on macro

[HYKE]

Hi,

this macro is somehow giving me a run time error 48,why?

Sub MarkCells()
With Sheet1
    Dim c As Range
    
    For Each c In Range("b1", Range("b1").End(xlDown))
        If c.FormatConditions.Font.ColorIndex = 3 Then
            c.Offset(0, 5).Value = "FOR GITB"
        End If
    Next c
End With
End Sub

 

[Richard Schollar]

Hi

You have unqualified range references and also you need to specify the format conditions index. Try:

Sub MarkCells()
With Sheet1
    Dim c As Range
    
    For Each c In .Range("b1", .Range("b1").End(xlDown)).SpecialCells(xlCellTypeAllFormatConditions)
        If c.FormatConditions(1).Font.ColorIndex = 3 Then
            c.Offset(0, 5).Value = "FOR GITB"
        End If
    Next c
End With
End Sub

 

[HYKE]

Thanks Richard! It worked...