Here is the solution for Adding Borders for Auto Fit Columns

‘Code:
‘==============
Sub AddBorders()

‘ AddBorders Macro

Range(“B11”).CurrentRegion.Activate

Selection.BorderAround xlThin

‘ Selection.Borders(xlEdgeLeft).Weight = xlThin
‘ Selection.Borders(xlEdgeTop).Weight = xlThin
‘ Selection.Borders(xlEdgeBottom).Weight = xlThin
‘ Selection.Borders(xlEdgeRight).Weight = xlThin

Selection.Borders(xlInsideVertical).Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin

Columns(“C:F”).EntireColumn.AutoFit

End Sub

Chris Terrell

View all posts