Alternativelly you might try something like this, using a text box:
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 192.75, 75.75, _
239.25, 140.25).Select
Selection.Characters.Text = "Message Box" & Chr(10) & "" & Chr(10) & "Save this file before exiting."
Selection.HorizontalAlignment = xlCenter
Selection.ShapeRange.ScaleHeight 0.58, msoFalse, msoScaleFromTopLeft
Selection.Characters.Text = "Message Box" & Chr(10) & "" & Chr(10) & "Save this file before exiting."
With Selection.Characters(Start:=1, Length:=13).Font
.Name = "Georgia"
.FontStyle = "Bold"
.Size = 20
.ColorIndex = 3
End With
With Selection.Characters(Start:=14, Length:=30).Font
.Name = "Monotype Corsiva"
.FontStyle = "Bold"
.Size = 14
.ColorIndex = xlAutomatic
End With
Selection.ShapeRange.Fill.PresetTextured msoTextureBouquet
Application.Wait Now + TimeValue("00:00:05")
Selection.Delete
Range("A1").Select
End Sub
regards
Derek
This message was edited by Derek on 2002-04-24 00:32