VBA Code to Add Border to Excel Range


Through formatting the cells, you can make your Excel data more beautiful and easier to understand. If you record a macro to add borders to Excel range, you will notice that it generates 30 plus lines of code for just a small work.

VBA Code to Add Border to Excel Range

See below such code:
Sub Macro1()
    
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("E4").Select
End Sub

Here we are sharing one line of code which does the same thing:
Sheet1.Range("A1:G20").Borders.LineStyle = xlContinuous

Screenshot of the sheet before running the code:
VBA Code to Add Border to Excel Range

Screenshot of the sheet after running the code:
VBA Code to Add Border to Excel Range

How can I use this VBA code?


If you want to use this code in your VBA tool, then follow below steps:

  1. Open the Excel file in which you want to copy this code

  2. Press Alt+F11

  3. Open the module in which you want to add this code

  4. Paste this code just after the code where you want to add the borders in the sheet

VBA Code to Add Border to Excel Range

What will happen when I run this code?
  1. The code will add borders in range A1 to G20 of Sheet1

Thanks for reading the article, subscribe us to get more VBA tricks

Leave a Reply

avatar
VBA Code to Delete File
EXCEL VBA TRICKS
VBA Code to Delete File

In this article we are going to show you how you can delete file or files using a single line of VBA code. 1. Delete a specific file from the folder, 2. Delete specific type of files from the folder, 3. Delete all files from the folder

Protect Excel Sheet for Manual Input
EXCEL VBA TRICKS
VBA Code to Protect Excel Sheet for Manual Input but Allow Programming Inputs

Did you come across any requirement where you want the user to interact with a sheet only through VBA Form? Here is a simple code which can help you.

VBA Code to Add Items in ListBox Control in Userform
EXCEL VBA TRICKS
VBA Code to Add Items in ListBox Control in Userform

Using ListBox in Userform is very common. You can use ListBox.AddItem function to add items in the listbox.; however, it is little difficult to add items in Listbox when the number of columns are more than one. Here is a sample VBA code to help you ‘Event handler to add …