Hi!

I have this code and it works but it should be nice if the macro2 could
run with an onmouseover event. Is this possible? If it is, is it also
possible to get the old text with somthing like onmouse out?

Sub Macro3()

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 346.5,
105#, _
100.5, 63#).Select
Selection.Characters.Text = "Text"
Selection.Name = "MyTextBox"
Selection.OnAction = "Macro2" 'insert new text
End Sub

Sub Macro2()
ActiveSheet.Shapes("MyTextBox").Select
Selection.Characters.Text = "New Text"
Range("F20").Select
End Sub

Thanks in advance

*** Sent via Developersdex http://www.developersdex.com ***