I just wanted to give you some ideas so you could solve your own problem.

"pwilson.bowdoin" wrote:

For the second method don't we need a select case function to agree
with the Case's below. The method which I'm referring to is below.
Thanks for the help!


Sub ToggleBorders()
With Selection
For Edge = xlDiagonalDown To xlInsideVertical
Case xlDiagonalDown '=5
.Borders(Edge).LineStyle = xlContinuous
Case xlDiagonalUp '=6
Case xlEdgeLeft '=7
Case xlEdgeTop '=8
Case xlEdgeBottom '=9
Case xlEdgeRight '=10
Case xlInsideHorizontal '=11
Case xlInsideVertical '=12
Next edge
End With
End Sub