Shape not appearing?

[Paul Sansom]

Hi

I have a please wait message that appears if there is no other action in the sub but refuses to show if the sub calls another sub??
What's wrong with my code please

Public Sub MultipleProcessCheck_onAction(control As IRibbonControl)
'   Button 53
'   Please wait message
    Sheets("Recipe").Shapes("PleaseWait").visible = True
    MulipleProcessCalc
    
End Sub

If MultipleProcessCheck is not there the shape appears!!!!?
Any help please

Paul

 

[Paul Sansom]

and now I'm replying to my own post
was just too fast for shape to appear. a wait fixed it!

Public Sub MultipleProcessCheck_onAction(control As IRibbonControl)
'   Button 53
'   Please wait message
    Sheets("Recipe").Shapes("PleaseWait").visible = True
    Application.Wait Second(Now()) + 10
    
    MulipleProcessCalc
    
End Sub

More elegant or better solutions still most welcome
Paul