Sub BoldFont()
Dim lLR As Long
Dim l4Row As Long

lLR = Cells(Rows.Count, "a").End(xlUp).Row
For l4Row = 1 To lLR Step 1
If Cells(l4Row, "d").Value 10 Then
Cells(l4Row, "a").Font.Bold = True
Else
Cells(l4Row, "a").Font.Bold = False
End If
Next l4Row
End Sub


--
mudraker

If my reply has assisted or failed to assist you I welcome your
Feedback.

www.thecodecage.com
------------------------------------------------------------------------
mudraker's Profile: http://www.thecodecage.com/forumz/member.php?userid=18
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=43607