Sub Yellow()
'
' Macro1 Macro
' Macro recorded 12/8/2006 by Mark F Jacobson
'
    With Selection.Interior
        .ColorIndex = 6         ' <----------- YELLOW is = 6
        .Pattern = xlSolid
    End With
End Sub

Sub RemovingFillColorOnCellsRecordedMacro()
'
' RemovingFillColorOnCellsRecordedMacro Macro
' Macro recorded 12/8/2006 by Mark F Jacobson
'
    Selection.Interior.ColorIndex = xlNone
End Sub

Sub colorDuplicateBirthdays()

    For r = 3 To 24
        If Cells(r - 1, 1).Value = Cells(r, 1).Value Then
            Cells(r, 1).Interior.ColorIndex = 6
        End If
    Next r

End Sub

Sub removeColorFormat()
    Range("A3:A24").Interior.ColorIndex = xlNone
End Sub