grazie tante flash30005, il codice che hai postato funziona bnissimo solo che c'è ancora un problema.... mi spiego meglio dall'inizio
ho un foglio excel chiamato modulo d'ordine, dentro questo modulo io lancio una macro che imposta i foglio con determinate caratteristiche ( formattazione, colore, calcoli ecc.....). alla fine di questa macro faccio partire automaticamente la macro che mi hai postato tu: cambiando in macro1() msgbox "salve" con una mia funzione
Sub Macro1()
mia funzioneEnd Sub
Sub Macro2()
ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 100, 25, 50, 35).Name = "Prova"
ActiveSheet.Shapes("Prova").Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 65
Selection.ShapeRange.Fill.BackColor.SchemeColor = 11
Selection.ShapeRange.Fill.TwoColorGradient msoGradientHorizontal, 2
Selection.Characters.Text = "Mio"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "Arial"
.FontStyle = "Normale"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveSheet.Shapes("Prova").Select
Selection.OnAction = "Macro1"
Range("D10").Select
End Sub
''''''''''''''''''''''''''''
funziona tutto bene sul mio pc, dato che la macro con la funzione risiede nel mio pc.....
quando pero' invio il foglio demoninato modulo'd'ordine ad un'altra persona su un'altro pc questa non funziona perchè nn trova la macro
come posso fare??? ringrazio in anticipo