Ошибка выполнения 1004 «диапазон 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