Change font color in Macro

[Bpd]

This macro below works fine. I just don't know how to change the font of the date 12/29/13 to a different color like red or blue. How do i do this?


Sub Assign()
Dim LastFilledCell As Range
Set LastFilledCell = Range("a9:b999").Find(What:="*", Searchorder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues)
If LastFilledCell Is Nothing Then
Range("a9").Value = "12/29/13"
ElseIf LastFilledCell.Row < 500000 Then
LastFilledCell.Offset(1, 1) = "12/29/13"
Else
MsgBox "Range is completely filled!"
End If
End Sub

[Solus Rankin]

Please Login or Register  to view this content.

[Bpd]

Thanks works great