Yes this is the way to stop at a defined point.
Your whole code would look likeAnd set F9 at the shown brown lineCode:Public Function RemoveAll() As Boolean Dim i As Integer, last As Integer last = mCol.Count For i = 1 To last if i = 8000 then Debug.print i end if mCol.Remove 1 Next End Function





Jonny Poet
Reply With Quote