שגיאת בוטל ע"י המשתמש בזמן ריצה בקוד VBA

[eagleye]

יש לי פרוצדורה אשר מעתיקה שורות פנימיות לא מוסתרות בתוך טווח נבחר לגיליון חדש (נניח אם בטווח נבחר A1:C3 יש שורה פנימית מוסתרת: A2:C2 ,אז היא לא תועתק לגיליון חדש, שאר השורות יועתקו). בזמן קומפילציה ישנה שגיאה Code Execution has been interupted, ואני לא לוחץ על pause במקלדת! ולא על Esc!.

Sub CopyNonHiddenRowsToNewSheet()


Dim iRow As Range: Dim DataSheet As Worksheet: Dim NewSheet As Worksheet
Dim i As Long


Set DataSheet = ActiveSheet
Worksheets.Add after:=DataSheet
Set NewSheet = ActiveSheet
DataSheet.Activate


For Each iRow In Selection.Rows

If Not iRow.Hidden Then
iRow.Copy
NewSheet.Paste (NewSheet.Cells(i + 1, 1))


' פה השגיאה מתבצעת כאשר אני לוחץ דיבאג בהודעת השגיאה 
i = i + 1 

Application.CutCopyMode = False

End If
Next
NewSheet.Activate
Columns.AutoFit
End Sub