Color borders, simplify the code [VBA]

[Martin_H]

Hi,

I would love to see this macro (see below) simplified as much as possible.

If anyone could look at it, I would be grateful.

Thank you.

Sub COLOR_BORDERS()

Range("AF14:AY14").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous: .Color = -1644826: .TintAndShade = 0: .Weight = xlMedium
End With

With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous: .Color = -1644826: .TintAndShade = 0: .Weight = xlMedium
End With

With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous: .Color = -1644826: .TintAndShade = 0: .Weight = xlMedium
End With

With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous: .Color = -1644826: .TintAndShade = 0: .Weight = xlMedium
End With

With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous: .Color = -1644826: .TintAndShade = 0: .Weight = xlMedium
End With

With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous: .Color = -1644826: .TintAndShade = 0: .Weight = xlMedium
End With

End Sub

 

[Fluff]

How about

Sub COLOR_BORDERS()
   With Range("AF14:AY" & Range("A" & Rows.Count).End(xlUp).Row)
      .Borders(xlDiagonalDown).LineStyle = xlNone
      .Borders(xlDiagonalUp).LineStyle = xlNone
      With .Borders
         .LineStyle = xlContinuous
         .Color = -1644826
         .Weight = xlMedium
      End With
   End With
End Sub

 

[Martin_H]

How about

Sub COLOR_BORDERS()
   With Range("AF14:AY" & Range("A" & Rows.Count).End(xlUp).Row)
      .Borders(xlDiagonalDown).LineStyle = xlNone
      .Borders(xlDiagonalUp).LineStyle = xlNone
      With .Borders
         .LineStyle = xlContinuous
         .Color = -1644826
         .Weight = xlMedium
      End With
   End With
End Sub

Well done Fluff.

Thank you very much.

 

[Fluff]

You're welcome & thanks for the feedback.