Works like a charm. Thanks for your expertise.
BigAl
"mudraker" wrote:
>
> 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
>
>