Yo lo que suelo hacer, es cambiar el nombre al botón que ejecuta el macro, informando que se está realizando el proceso, y cuando acaba, le vuelvo a poner el nombre original que tenía el botón.
Si te vale esa solución, aquí te paso el código:
Al principio de tu macro pon esto:
Código:
'Vamos a cambiarle el nombre al botón
ActiveSheet.Shapes("nombre_del_boton").Select
Selection.Characters.Text = "PROCESANDO LOS DATOS." & Chr(10) & "ESPERA..."
Al final del macro, antes del "end sub", pon esto:
Código:
'Vamos a cambiarle el nombre al botón, para dejar el original
ActiveSheet.Shapes("nombre_del_boton").Select
Selection.Characters.Text = "PROCESAR"
PD: "nombre_del_boton" es el nombre que tenga tu botón. Puedes saberlo situándote encima del botón (sin cliquear en él para que no se ejecute el macro), y viendo el nombre arriba a la izquierda, delante de la barra de fórmulas. Normalmente se llamará "Botón 1", "Botón 2", etc.
Salu2