View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Matt[_47_] Matt[_47_] is offline
external usenet poster
 
Posts: 4
Default Format a column from the last row of data on up

Select your range:

Cells(AD1:AD lastrow ).Select


Then this will format whatever you have selected:

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


Another suggestion is to do it by hand and record the Macro while
doing it then modify to just select the range.