Dim lo as ListObject Dim MyRange as Range Set lo = Sheet1.ListObjects(1) 'or Set lo = Sheet1.ListObjects("Table1") 'or Set lo = MyRange.ListObject