creating a bottom border using vba

[Offroadracer_814]

To All:

I am trying to create a bottom border only. I am using this VBA script (found on this site). But, am getting borders on all edges. I am only wanting border on the bottom.

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:Z" & LR).Borders.Weight = xlMedium

In my macro I already define lrow as
Dim lrow As Long
lrow = Range("A65536").End(xlUp).Row


Thanks

Kevin

 

[Fluff]

How about

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:Z" & LR).Borders(xlEdgeBottom).Weight = xlMedium
Range("A2:Z" & LR).Borders(xlInsideHorizontal).Weight = xlMedium

 

[Offroadracer_814]

That works.

Thanks! I can adjust a few other macros here at work.

 

[Fluff]

Glad to help & thanks for the feedback