Danny,

In what way does it not work. It seems fine to me, and runs on my system
when I add some border code.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Danny" wrote in message
...
Hi,

I got this macro from this NG and I modified it to highlight a range.
However, it's not working. Please help.

Sub BordersBOLD()

Application.Goto Reference:="Applicants"
ActiveCell.Offset(1, 0).Select

With ActiveCell
ilastrow = Cells(Rows.Count, .Column).End(xlDown).Row
Set rng = .Resize(ilastrow - .Row + 1, 9)

'Then I will insert a macro here to make the outline borders bold.

End With
End Sub