VBA =对象必需错误

Question

执行我写的函数时，我得到以下错误

＆＃34;需要对象＆＃34;

功能如下：

Sub ResizeTable4()
    ResizeTabell234("Tabell4", "Table11", "M", "O", "P") = Object
End Sub 



Function ResizeTabell234(SheetName As String, TableName As String, OuterBoarderOfTable As String, CurrentValue As String, NewValue As String)

    Dim CurrentWorkSheet As Worksheet
    Dim ObjectList As ListObject

    Dim NewResizeRange, CurrentRange As Long

    Set CurrentWorkSheet = ActiveWorkbook.Worksheets(SheetName)
    Set ObjectList = CurrentWorkSheet.ListObjects(TableName)

    CurrentRange = Worksheets(SheetName).Cells(2, CurrentValue).Value
    NewResizeRange = Worksheets(SheetName).Cells(2, NewValue).Value

    If NewResizeRange > CurrentRange Or NewResizeRange = CurrentRange Then

        ObjectList.Resize CurrentWorkSheet.Range("A1:" & OuterBoarderOfTable & NewResizeRange)

    Else

        ObjectList.Resize CurrentWorkSheet.Range("A1:" & OuterBoarderOfTable & NewResizeRange)

        NewResizeRange = NewResizeRange + 1

        Range("A" & NewResizeRange, OuterBoarderOfTable & CurrentRange).Clear

    End If


End Function

没有* = Object *该功能甚至没有运行。我试过了

Dim object As Object 

但那没用。我是VBA的新手，我尝试自己学习，但无法弄清楚为什么它不起作用。任何想法？