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

Please Login or Register  to view this content.

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

stonefish150, change this line:

Please Login or Register  to view this content.

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