Error 9 - Subscript Out of Range

[tigerdel]

I have a UserForm that adds New Suppliers to a Table but I get an error [see title] at the line Set tbl = ws.ListObjects("Supplier")

The SheetName is correct and I have a Table called Supplier on that sheet

Private Sub cmdAddSupplier_Click()
Dim ws As Worksheet
Set ws = Sheets("Lists")
Dim tbl As ListObject
Set tbl = ws.ListObjects("Supplier")
Dim newRow As ListRow
Set newRow = tbl.ListRows.Add
With newRow
    .Range(1) = txtPayeeName
    .Range(2) = cmbVATType
    .Range(3) = cmbHeaders
End With
Unload Me
End Sub

Any suggestions gratefully received

Many thanks

 

[Fluff]

Is that workbook the active workbook when you run the code?

 

[tigerdel]

Is that workbook the active workbook when you run the code?

Yes Mate

 

[Fluff]

In that case double check the name of the table, for any possible typos.
I'm assuming that it is a structured table, rather than a named range.

 

[tigerdel]

Thanks Fluff - it didn't like the Table Name but when I changed it all was well

Cheers

 

[Fluff]

Glad to help & thanks for the feedback.