Macro to Change Font of Range

[Gard5096]

This is giving me an application defined or object defined error on the .BorderAround property.

Any ideas on what I can do to fix this?

    With Sheets("Needs MIL").Range("A3:F" & lRow)
        .BorderAround LineStyle:=xlContinuous, ThemeColor:=1, Weight:=xlThin

    End With