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)

Answer 1

you are missing a t - Set CurrenWorkSheet