Como resolver um erro definido pelo aplicativo ou por um objeto no VBA?

Question

Eu tenho application-defined or object-defined error toda vez que eu clico em "executar"

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

Você precisa usar a palavra-chave Set ao atribuir um objeto:

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