Declare cell / border format to be reused

[Martynrbell]

I'm writing some code where each result needs the colour changing and the border setting.

The colour is fine as it's only 1 extra line of code however the border is a few.

With rng.Borders
.LineStyle = xlContinuous
.Color = vbRed
.Weight = xlThin
End With
Is there a simpler way to set the border with fewer lines?

Eg range.borderset= full and black

Or can I declare something prior that I can recall

Range.declaredvarforborder

I'm trying to tidy up and make it easier for me to read.

Cheers

 

[Michael M]

Not really that's about as simple as Borders get !!
Have you considered maybe coding formats from an existing formatted range

Range("A1:A2").Copy
rng.PasteSpecial Paste:=xlPasteFormats