Clear all borders with VBA

[Otto Moehrbach]

Excel XP, Win XP
When I record a macro to clear all borders in the selection, the recorder of
course comes back with a list of:
ThisBorder = xlNone
ThatBorder = xlNone
Etc
Etc.
What is the single statement that clears all borders in the selection?
Thanks for your time. Otto

 

[Guest]

Try this

Range("H8:L22").Select
Selection.Borders.LineStyle = xlNone

 

[Gary Keramidas]

how about something like this

Sub test()
Dim b As Border
Dim rng As Range
Set rng = Range("e3:j11")
For Each b In rng.Borders
b.LineStyle = xlNone
Next
End Sub

or this

Sub test2()
Dim b As Border
For Each b In Selection.Borders
b.LineStyle = xlNone
Next
End Sub