Object Variablenot set error - Excel VBA

Question

I have written the following piece of code. I'm getting the following error "Object variable of With block variable not set". I cannot seem to figure out why.

Dim ResizeRange1 As Long
Dim ResizeRange2 As Long


Dim CurrentWorkSheet As Worksheet
Set CurrenWorkSheet = ActiveWorkbook.Worksheets("RådatatillTable3")

Dim Table1 As ListObject
Dim Table2 As ListObject

Set Table1 = CurrentWorkSheet.ListObjects("Table10")
Set Table2 = CurrentWorkSheet.ListObjects("Table13")

ResizeRange1 = Worksheets("PivotTable3").Cells(2, "D").Value + 1
ResizeRange2 = Worksheets("PivotTable for Tabell2").Cells(2, "H").Value + 1

Table1.Resize CurrentWorkSheet.Range("A1:E" & ResizeRange1)
Table2.Resize CurrentWorkSheet.Range("J1:M" & ResizeRange2)

Put Option Explicit at the top of each module. It enforces variable declaration and reports undeclared or misspelled variables/constants at compile time. To have this automatically in new modules, set the Require Variable Declaration option in the VBA Editor. This is really a must have for VBA development. /brokenRecord — Andre
– Andre, Commented Aug 1, 2017 at 11:49

braX · Accepted Answer · 2017-08-01 11:33:52Z

1

you are missing a t - Set CurrenWorkSheet

answered Aug 1, 2017 at 11:33

braX

11.9k5 gold badges24 silver badges38 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Jordan Over a year ago

Unbelieve.. spent hours trying to figure it out. Thank you

Collectives™ on Stack Overflow

Object Variablenot set error - Excel VBA

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related