Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Change range border style

Sub Extend()   With Range("A1:E5")     .Borders.LineStyle = xlLineStyleNone     .Resize(.Rows.Count + 1).Name = "Database"   End With End Sub