Resize table VBA

**Undo** · 12-10-2023, 03:27 PM

I am looking to solve this code, it gives error
Would anyone be able to help?

ActiveSheet.ListObjects(1).Resize DataBodyRange.Resize(2, 4)

code should work like this one, but with listobject reference

Sheet2.ListObjects("Table1").Resize Range("Table1[#All]").Resize(2, 4)

Thanks

**Sintek** · 12-11-2023, 02:21 AM

Perhaps...

With ActiveSheet.ListObjects(1)
    .Resize Range(.Name & "[#All]").Resize(.Range.Rows.Count + 2, .Range.Columns.Count + 4)
End With

**Undo** · 12-11-2023, 10:38 AM

Thanks for giving me an idea
I got it

With ActiveSheet.ListObjects(1)
.Resize Range(.Name & "[#All]").Resize(2, 4)
End With

**Sintek** · 12-11-2023, 03:31 PM

Glad to have helped...Tx for rep +

Re: Resize table VBA