Thread: Border Problem
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Gizmo Gizmo is offline
external usenet poster
 
Posts: 47
Default Border Problem

Excel2003

How can I find the last used row, then select cells "A:F" & Lastrow +2 and
apply bottom border.

I tried this code but no go.

Sheets("Debrief Report").Activate
LWriteRow = Cells(65536, 2).End(xlUp).Row
LBorderRow = LWriteRow + 2

Range("A:F" & LBorderRow).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone