«Ошибка компиляции: требуется объект» в функции Goalseek

Question

Я пытаюсь автоматизировать функцию Goalseek.

Sub Goalseek()
Dim rw As Integer
Dim cl As Integer

Set rw = ActiveCell.Row
cl = ActiveCell.Column
To_value = Cells(rw, cl - 25).Value

Cells(rw, cl + 6).Goalseek Goal:=To_value, ChangingCell:=Cells(rw, cl)

End Sub

И

Ошибка компиляции: требуется объект

.