运行时错误1004＆＃34; object_worksheet的范围失败

Question

想要使用单元格更改来运行此代码：获取运行时错误。

 Private Sub Worksheet_Change(ByVal Target As range)
On Error GoTo ErrorHandler '<--| be sure to catch any error and enable   events handling back
Select Case Target.Address

    Case "$F$16"
       'Recalculate as necessary
       For counter = 1 To range("F16").Value
         Debug.Print counter;
        amount = range("F13").Value + (range("F13").Value * 0.15)
       Next
       range("F17").Value = amount

End Select
ErrorHandler:
Application.EnableEvents = True '<--| enable events handling

End Sub

谢谢

Answer 1

根据评论，这应该有效：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler   '<--| be sure to catch any error and enable   events handling back
Dim i As Long

Select Case Target.Address

Case "$F$16"
    'Recalculate as necessary
    For i = 1 To Range("F16").Value
        Debug.Print i
        Range("F17").Value = Range("F13").Value + (Range("F13").Value * 0.15)
    Next i

End Select
ErrorHandler:
Application.EnableEvents = True    '<--| enable events handling

End Sub