To give a visual indication of progress in a loop I've been using something like this on each time round the loop.
Sheet2.Shapes("Rectangle 9").Width = intWidth
To make it work I generally need a
Application.ScreenUpdating = True (though I'm not sure why, since I have not turned it off)
Anyway, I was wondering if anyone knows of a slicker way of doing this?
Maybe something that uses the Windows API?