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