Microsoft Office Forums - View Single Post

excelledsoftware · 01-23-2014, 09:45 PM

I just make a counter variable and display it somewhere where the user can see. it.

If I am using a for loop like

Code:

Sub LoopWithCounter ()

dim Counter as integer, x as integer
    for x = 1 to 100
    'insert code here
        counter = 100 - x & " Records Remaining."
        range("a1").value = counter
    next x
    
    range("a1").ClearContents
    msgbox "All Records Complete!"
End Sub

May not be exactly what you are looking for but it's a pretty simple solution.