Как решить прикладную или объектную ошибку в VBA?

Question

Я получаю application-defined or object-defined error каждый раз, когда нажимаю "запустить"

Sub Test1()
    Dim Bank As Range
    Dim lRow As Long

    lRow = Cells(Rows.Count, 3).End(xlUp).Row
    Bank = Worksheets("Deposits Calculator").Range(Cells(3, 9), Cells(lRow, 9))

    Do While Bank <> 0
        If (lRow = 9) Then
            Cells(9, 3).Select
            ActiveCell.FormulaR1C1 = "='Deposit Calculator' !R[5]C[9]"
        End If
    Loop
End Sub

Answer 1

Вам необходимо использовать ключевое слово Set при назначении объекта:

Set Bank = Worksheets("Deposits Calculator").Range(Cells(3, 9), Cells(lRow, 9))