The various "built in" mouse events are only coded to work with objects that
are on a User Form (as distinct from objects drawn on a worksheet).

User forms are good fun and very functional and they give your application a
professional look, which can be handy if other people are using it. Worth
considering .....

--
"I've played in front of many talented audiences"


"Kalle" wrote:



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 ***