New thread for font size & bold

[EMoe]

Hello All!

I have a code that I modified from a web site that pops up a please wait message while excel is calculating cells. The macro works fine, but I can't figure out how to bold & change the font size (to say 16).

Code:

Sub Update_Values()
ShowPleaseWait
Calculate
KillPleaseWait
End Sub

Sub ShowPleaseWait()
With Sheet1
KillPleaseWait
'call delete routine
.Shapes.AddShape(msoShapeRectangle, 310, 70, 100, 50).Name = "Wait"
With .Shapes("Wait")
.TextFrame.Characters.Text = "Please Wait, Updating Values...."
.Fill.ForeColor.SchemeColor = 53
End With
ActiveCell.Activate
End With
End Sub

Sub KillPleaseWait()
On Error Resume Next
Sheet1.Shapes("Wait").Delete
End Sub

Thanks for any help with this.

[VBA Noob]

Thanks for following the rules.

Try

Please Login or Register  to view this content.

VBA Noob

[shg]

Emoe, as explained in the Forum Rules, Code Tags are like this:

[CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE]

[EMoe]

Thanks VBA Noob, that worked out perfectly !

Moderator shg, I found the code list. Thanks for keeping me straight !

Best Regards,
EMoe