En excel en una hoja ejecutar una macro para poner un mensaje y que siga ejecutando la macro hasta que acabe y borre el mensaje.

Te anexo el código

Sub Macro1()
'Por.Dante Amor
    '
    On Error Resume Next
    ActiveSheet.Shapes("mensaje").Delete
    On Error GoTo 0
    izq = ActiveCell.Left
    arr = ActiveCell.Top
    Set figura = ActiveSheet.Shapes.AddShape(msoShapeRectangle, izq, arr, 100, 100)
    figura.Name = "mensaje"
    figura.TextFrame.Characters.Text = "Espere un momento por favor"
    DoEvents
    '
    'aquí va el código de tu macro
    '
    'Fin código de tu macro
    '
    On Error Resume Next
    ActiveSheet.Shapes("mensaje").Delete
    On Error GoTo 0
End Sub

.

.

He puesto después de DoEvents un msgbox" a ver si funciona" y range("a1")).select; y me pone primero el msgbox que va en mi macro y al aceptar me sale el cuadro de texto correcto, pero claro no me borra el cuadro de texto al acabar de ejectuar mi macro, porque primero ejecuta mi macro y despues me pone el cuadro de texto.

También te pregunto si es posible cambiar el tamaño de la letra a 28 y el color del texto a ROJO

Te pongo lal macro:

Sheets("Hoja1").Select
On Error Resume Next
ActiveSheet.Shapes("MENSAJE").Delete
On Error GoTo 0
Range("D11").Select
IZA = ActiveCell.Left
ARR = ActiveCell.Top
Set FIGURA = ActiveSheet.Shapes.AddShape(msoShapeRectangle, IZA, ARR, 300, 100)
FIGURA.Name = "MENSAJE"
FIGURA.TextFrame.Characters.Text = "ESPERA UN MMOMENTO POR FAVOR"
DoEvents
' AQUI VA MI MACRO
MsgBox "A VER SI BORRA EL CUADRO DE TEXTO"
Range("A1").Select

Agradecido de antemano, te saluda atentamente:

Alfredo