VBA code - Borders for Table

[Spaztic]

This seems like it would be straight-forward but I'm struggling. I have a program that makes several tables (and that works). What I can't seem to do is apply 'All Borders' to each table it creates. The code that I added that doesn't work is:

Range(.ListObjects(i)).Select
With Selection.Borders
.LineStyle = x1Continuous
.Weight = x1Thin
.ColorIndex = x1Automatic
End With


my attempted code that doesn't work. (I've tried many different things with no success).

Any help would be appreciated!

Sub CreateTables()
    Dim lr As Long, i As Integer
    Dim cll As Range, rng As Range

With ActiveSheet
    lr = .Cells(Rows.Count, "B").End(xlUp).Row  '<-- changed to column B
    Set rng = .Range("B1:B" & lr)
   
    For Each cll In rng
        If cll.Value = "Check Item" Then 'find header row
            i = i + 1
            .ListObjects.Add(xlSrcRange, .Range(cll, cll.End(xlDown).Offset(, 9)), , xlYes).Name = cll.Offset(-1, -1).Value
            .ListObjects(i).TableStyle = ""            'Use blank format for table
            .ListObjects(i).DataBodyRange.AutoFilter   'Remove dropdown arrows for each column in table

Range(.ListObjects(i)).Select
With Selection.Borders
                .LineStyle = x1Continuous
                .Weight = x1Thin
                .ColorIndex = x1Automatic
End With

        End If
    Next cll
End With
End Sub

 

[NoSparks]

use xl (that's a lower case L) instead of x1 (that's the number one)

If you were using Option Explicit
Excel would have pointed out something wasn't right

 

[Spaztic]

Thanks! That worked...and a simple solution. Just to be thorough...I changed that portion of the code to make it simpler.
With Selection.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic