For next index

[David Henderson]

The code below has a for next loop in it
how can I find out the "position" , ie is it the first time through the
loop, the last or the "n" th time through the loop.
I would be most gratefull if someone could enlighten me
Thanks in advance
David

no_values = True
Dim thecells As Range
For Each thecells In Range("quantity_range")
If thecells.Value <> 0 Then
no_values = False
End If
Next

 

[paul.robinson]

Hi

no_values = True
marker = 0
Dim thecells As Range
For Each thecells In Range("quantity_range")
marker = marker + 1
If thecells.Value <> 0 Then
no_values = False
End If
If no_values = False then Exit for
Next
msgbox "Loop was exited on iteration " & marker

regards
Paul