Good morning proepert

That's easy enough. The code below should work just fine : I can't test it on XL2000 as I only have 2003 on this machine, but it should be work OK :
Application.Cursor = xlWait
to change to an hourglass
Application.Cursor = Default
to return it to normal.

HTH

DominicB