ошибка argument not optional

[Vlad-y]

В экселе составил таблицу которая по по некоторым параметрам высчитывает координаты точек некоторой фигуры. И составил код для автокад чтобы в нём эта фигура по этим координатам вычерчивалась. И выдаёт мне ошибку, там где в коде выделено красным.И не знаю как её устранить.
Sub autocad()
Dim acadapp As AcadApplication
Dim acad As Object
Set acad = CreateObject("AutoCad.Application")
acad.Visible = True
acad.WindowState = acMin
Dim t As AcadModelSpace
t = acad.ActiveDocument.ModelSpace
Dim polyline As AcadLWPolyline
Dim P(0 To 9) As Double
P(0) = Range("B3"): P(1) = Range("C3")
P(2) = Range("B7"): P(3) = Range("C7")
P(4) = Range("B11"): P(5) = Range("C11")
P(6) = Range("B12"): P(7) = Range("C12")
P(8) = Range("B20"): P(9) = Range("C20")
Set polyline = t.AddLightWeightPolyline(P)
opl.Closed = True
Dim polyline1 As AcadLWPolyline
Dim P1(0 To 31) As Double
P1(0) = Range("B20"): P1(1) = Range("C20")
P1(2) = Range("B4"): P1(3) = Range("C4")
P1(4) = Range("B19"): P1(5) = Range("C19")
P1(6) = Range("B5"): P1(7) = Range("C5")
P1(8) = Range("B18"): P1(9) = Range("C18")
P1(10) = Range("B6"): P1(11) = Range("C6")
P1(12) = Range("B17"): P1(13) = Range("C17")
P1(14) = Range("B7"): P1(15) = Range("C7")
P1(16) = Range("B16"): P1(17) = Range("C16")
P1(18) = Range("B7"): P1(19) = Range("C7")
P1(20) = Range("B15"): P1(21) = Range("C15")
P1(22) = Range("B8"): P1(23) = Range("C8")
P1(24) = Range("B14"): P1(25) = Range("C14")
P1(26) = Range("B9"): P1(27) = Range("C9")
P1(28) = Range("B13"): P1(29) = Range("C13")
P1(30) = Range("B10"): P1(31) = Range("C10")

Set polyline = t.AddLightWeightPolyline(P1)

End Sub
Безымянный.jpg

[IgorGO]

пробуйте устранить так:

Set t = acad.ActiveDocument.ModelSpace

[Vlad-y]

Сообщение от IgorGO

пробуйте устранить так:

Set t = acad.ActiveDocument.ModelSpace

спасибо помогло