Shorter VBA for creating borders for cells

whatsup · #1 07-28-2014, 12:35 PM

Hi Mike

If you're fine with the default of borders, you don't have to include all properties. What you've got, is the result of the macro-recorder, which includes the properties to show what's possible.

Still, it's not a lot shorter because borders are applied in sections:

Code:

Sub Do_Borders()
With Range("AG2:AH6")
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlInsideVertical).LineStyle = xlContinuous
    .Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating borders in word	joechidwala	Word	2	02-05-2014 05:33 AM
How to create shorter docs from large base template?	Preloader	Word	13	10-19-2013 09:39 PM
Differences in borders at page break in merged cells	Sudlav	Word Tables	2	05-23-2013 11:50 PM
borders disappear from merged cells when pasting from excel	joba	Word	0	09-10-2012 11:35 AM
PDF conversion creating borders around text	BrazzellMarketing	Word	4	01-17-2011 01:09 PM