Email Empfänger ändern?

[elamigo]

Moin Leute,

habe ein Makro welches Email verschickt. Allerdings sollte die email immer an unterschiedliche Leute gehen. Aktuell muss ich immer das Makro umschreiben, wenn ich eine Email versenden möchte. Auschnitt aus dem Makro. 

Code:

With Destwb
       .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
       On Error Resume Next
       With OutMail
           .to = "XXXXXX@email.com"
           .CC = ""
           .BCC = ""
           .Subject = "TEEST"
           .Body = "Anbei ein Test einer Tabelle, bitte nicht weiter beachten"
           .Attachments.Add Destwb.FullName
           'You can add other files also like this
           '.Attachments.Add ("C:\test.txt")
           .Send   'or use .Display
       End With
       On Error GoTo 0
       .Close savechanges:=False
   End With

Kann ich es einstellen, das er immer die Email Adresse aus Zelle A1 zb. nimmt oder hat jemand einen anderen Vorschlag. Vllt über ein Eingabefeld wenn man auf senden drückt?

[Flotter Feger]

Hallo,

verzeih mir bitte, aber ... ich fühl mich irgendwie veräppelt von der Anfrage ...

Code:

.to = Worksheets("Tabelle1").Range("A1").Text

[elamigo]

Hey,

Danke dir, aber manchmal sieht man den Baum vor lauter Bäumen nicht.