VBA: Counting rows in a table (list object)
You need to go one level deeper in what you are retrieving.
Dim tbl As ListObjectSet tbl = ActiveSheet.ListObjects("MyTable")MsgBox tbl.Range.Rows.CountMsgBox tbl.HeaderRowRange.Rows.CountMsgBox tbl.DataBodyRange.Rows.CountSet tbl = Nothing
More information at:
ListObject Interface
ListObject.Range Property
ListObject.DataBodyRange Property
ListObject.HeaderRowRange Property