Salve ragazzi, ho un problema con VBA. Spero mi possiate aiutare. Ho l'esigenza di creare due moduli distinti che possano essere trattati con due pulsanti differenti e devo prendere i risultati di una Macro ed utilizzarli nella Macro successiva?

In particolare tra le altre cose ho creato una userform da dove seleziono delle parole con .additem e alla fine esce una finestra che mi indica le voci che ho selezionato. Qualcosa l'ho preso da degli esempi da internet e il risultato mi piace.
Ora credo che i risultati siano in ListBox1.Selected(i) e proprio questi mi servirebbero nella Macro successiva.

Private Sub CancelButton_Click()
Unload UserForm1
End Sub

Private Sub Label1_Click()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub OKButton_Click()
Dim Msg As String
Dim i As Integer
Dim Counter As Integer
Msg = "You selected:" & vbNewLine
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Counter = Counter + 1
Msg = Msg & ListBox1.List(i) & vbNewLine
End If
Next i
If Counter = 0 Then Msg = Msg & "(nothing)"
MsgBox Msg
Unload UserForm1
End Sub


Sub UserForm_Initialize()
' Fill the list box
With ListBox1
.AddItem "Ore 9:00"
.AddItem "Ore 10:00"
.AddItem "Ore 12:00"
.AddItem "giorno succ"
.AddItem "Economy"
.AddItem "Merci pesanti"
.AddItem "Al sabato"
.AddItem "Week-End"
.AddItem "Su appuntamento"
.AddItem "Al vicino"
.AddItem "Finistra temporale"
.AddItem "Al piano"
.AddItem "di sera"
.AddItem "Desk to Desk"
.AddItem "Facchinaggio"
.AddItem "giorno stabilito .AddItem "
.AddItem "Notturno .AddItem "
.AddItem "Stesso giorno"
.AddItem "Zone Disagiate"
.AddItem "Sponda Idraulica"
.AddItem "Data diversa "
.AddItem "Indirizzo secondario"
.AddItem "Sosta"
.AddItem "Riconsegna (proattività)"
.AddItem "Giacenza"
.AddItem "Andata e ritorno"
.AddItem "Magazzini"
.AddItem "Fermo Deposito"
.AddItem "Deposito Caveau"
.AddItem "Fermo Posta"
.AddItem "Firma di un adulto"
.AddItem "Raccomandata"
.AddItem "Ghiaccio Secco"
.AddItem "Bottiglie"
.AddItem "Batterie"
.AddItem "Bombolette/profumi"
.AddItem "Vernici/pitture"
.AddItem "Acidi Industriali"
.AddItem "Mezzi a due ruote"
.AddItem "Capi Appesi"
.AddItem "Bagagli"
.AddItem "Merce per Oreficerie e gioielleria"
.AddItem "Clinical/pharma"
.AddItem "Bancali"
.AddItem "Valore dichiarato"
.AddItem "Assicurazione"
.AddItem "Anticipo diritti amministr."
.AddItem "Contazione"
.AddItem "Prova Consegna"
.AddItem "Notifiche"
.AddItem "Re-call/Re email"
.AddItem "Monitoraggi Speciali"


End With

' Select the first list item
ListBox1.ListIndex = 0
End Sub


Scusate, non so se sono stato chiaro. Grazie in Anticipo