Visual Basic para Aplicaciones - Problema en Excel

Tengo un programa que realiza varias cosas en excel y lo que quiero es colocar una barra de avance o un reloj de arena para que el usuario sepa que la aplicacion este trabajando, como le puedo hacer?
Si alguien me puede ayudar se lo agradecere.

Saludos.
Mike

Esto puede ayudarte

Objeto.mousepointer=fmMousePointerHourGlass 'Reloj de arena

Objeto.mousepointer=Default 'Flecha Clasica

Saludos