VBA - Remove Vertical Border from Empty Row

[PaulMacF]

Hi there,

Would appreciate some code to remove the vertical bars (red ticks in picture) from empty rows on my sheet.
Only need it to work down to last occupied row of data.
Need it to remove vertical borders between COL A:AJ

Thanks

 

[Anthony47]

For example:

Sub Bordrr()
Dim uRR As Range
'
Set uRR = Application.Intersect(ActiveSheet.UsedRange, Range("A:AJ"))
For I = 1 To uRR.Rows.Count
    If Application.WorksheetFunction.CountA(Application.WorksheetFunction.Index(uRR, I, 0)) > 0 Then
        With Application.WorksheetFunction.Index(uRR, I, 0).Borders
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
    Else
        Application.WorksheetFunction.Index(uRR, I, 0).Borders.LineStyle = xlNone
    End If
Next I
End Sub

This removes the border when not necessary and sets them when needed

 

[PaulMacF]

Thanks, Anthony. Works perfectly.

 

[Anthony47]

Thank you for the feedback