Macro to add a border if cell is not blank

Hi,

I am looking to create a macro that adds a top border to the whole row if the first cell of that row is NOT blank. I would like this macro to run on all rows that contain text (there's about 8000).

I've looked around the forums and can't find anything that fits my requirements closely enough for me to tailor as I'm quite new to programming.

Appreciate any help anyone can offer.

for example

Sub ert()
Dim r As Range
Application.ScreenUpdating = 0
'On Error Resume Next
For Each r In Range("A1" & Cells(Rows.Count, 1).End(xlUp)).SpecialCells(2)
    r.EntireRow.Borders(xlEdgeTop).LineStyle = xlContinuous
Next
Application.ScreenUpdating = 1
End Sub

Hi davesexcel,
No, I'm not sure. Strange, but it works for me.

stonefish150, change this line:

For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp)).SpecialCells(2)

Hi guys. It works great- thanks very much for your help!