For i döngüsü hakkında yardım ( sonsuz döngüde kalıyor )

[stirra_ej]

Dim i As Integer
On Error Resume Next
For i = 3 To 200
If Range("G" & i).Value <> "" Then
Range("M" & i).Value = ("-")

End If
Next i

sonsuz döngüye takılıyor, nasıl bir düzentme yapabilirim..

 

[EmrExcel16]

Vermiş olduğunuz kodlarda , sonsuz döngüye sebep olacak bir durum mevcut değil , For i = 3 To 200 3 ile 200 arasında bir döngü , dosyanızda başka kodlar var ise onlar sebep olabilir.