I have a simple application I wrote to remove values on one sheet that are found on another sheet. For some reason, my For Next loop is not working and I'm not sure why as I have a similarly structured program on another subroutine. Please let me know what I am doing wrong here. For reference the Variable count is set above when an array is populated. For all intensive purposes lets say it is 1000.
The problem I am having is once the inner loop is done executing the code skips the "next i" portion and moves on to the error handling below it.
Dim n As Long, i As Long, arrCount As Integer
Dim Counter As Long
Dim PctDone As Single
arrCount = 0
Counter = 1
For i = 1 To Cells(100, "A").End(xlUp).Row
iSourceEmail = Range("A" & i).Value
For n = 1 To count
checkEmail = myEmailArray(n - 1)
If checkEmail = iSourceEmail Then
Range("A" & i).Value = ""
arrCount = arrCount + 1
If arrCount = 0 Then
MsgBox ("There are no duplicates to remove")
MsgBox ("You removed " & CStr(arrCount) & " Numbers from File")