Salve a tutti dovrei fare una macro che come prima cosa fa comparire la userform. Come si fà?
il codice della userform è
codice:
Public Sub CommandButton1_Click() 
Dim val1 As Long     
val1 = CDec(TextBox1.value)     
Unload Me     
ThisDocument.Macro2 (val1) End Sub
questo quello della macro a cui deve far riferimento la variabile val1
codice:
 Sub Macro2(val1 As Long)
    '
    model.Shapes(model.Shapes.Find(smFindTag, "object.5265")).Selected = True
    Dim currentModel As model
    Set currentModel = ActiveModel
    Set currentModel = currentModel.Submodels(currentModel.Submodels.Find(smFindTag, "object.5265")).model
    currentModel.Shapes(currentModel.Shapes.Find(smFindTag, "object.779")).Selected = True
    currentModel.Modules(currentModel.Modules.Find(smFindTag, "object.779")).Data("Value(1)") = "NORM(" & val1 & ")"
End Sub