Apply Table Style To Range Of Worksheets

[Al Del]

Would like to apply a table style to a range of worksheets, I get a "Compile error: no sub or function not defined." error when I run this code.

The tables have identical number of columns with varying rows. The all start at A1.

Sub ChangeStyle()
Dim x As Integer

 For x = 6 To Worksheets.Count
    With Workheets(x)
      .ListObjects.Add(xlSrcRange, .Range("$A$1"), , xlYes).Name = "Table" & x
      .ListObjects("Table" & x).TableStyle = "TableStyleMedium10"

    End With
 Next x

End Sub

 

[My Aswer Is This]

That's interesting It worked for me without declaring those things.
Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.