Beats me!
Hi,
I know this is simple, but this is going nowhere. Please help!!!
I have a worksheet "FLS Results". All I want to do is to make the
entire row (starting from row 2) bold if the entry in Column A is "With
PM". (This entry comes through a list via Data validation). Following
is the sub I wrote for it - when I run it, it gives me an error
message, saying "Application defined or object defined error" Can
someone tell me what's wrong with the sub?
Sub trackres()
Dim c As Range
Dim i, traccode As Variant
i = 2
Set c = Sheets("FLS Results").Cells(2, "E")
Do While Not IsEmpty(c)
traccode = Sheets("FLS Results").Range(i, "A").Value
If traccode = "With PM" Then
Sheets("FLS Results").Range(Cells(i, "B"), Cells(i,
"L")).Font.Bold = True
End If
Set c = c.Offset(1, 0)
i = i + 1
Loop
End Sub
Thanks in advance,
Joe.
|