Status Update Box

My macro involves iterating thru' a loop close to 500 times, and each iteration involves some movement back and forth between Sheet1 and Sheet2. Thus I have set 'Application. ScreenUpdating = False' just before the start of the iteration to prevent screen flicker and hopefully to speed up the iteration process. However, altho' the screen thus appears 'frozen' during the iterative process, I would like a real-time 'status update' box to appear at the start of the iteration; something like: 'Currently Running Iteration 24 of 500', where '24' is the current value of the loop counter within the macro code; next loop increments this to '25', etc.