VBA Sheet naam "Book1" aan Email veranderen in een aan een cel gerelateerde waarde

[PK58]

Hallo Allemaal,

repost van mijn vraag enige dagen terug voor VBA specialisten.

Als de volgende opdracht in VBA wordt uitgevoerd wordt keurig de sheet "TEST" verzonden maar de naam ervan is "Book1".
Hoe kan ik de naam (Book1) veranderen in een bepaalde (variabele) cel-waarde???

With ActiveWorkbook
.Sheets("TEST").Copy

With ActiveWorkbook
.SendMail "ontvanger@gmail.com", "TEST"
.Close False
End With
End With

BVD Peter

 

[wampier]

zoiets?

.name = .sheets("TEST").cells(1,1).value
.sendmail ...

De naamgeving moet wel voldoen aan alle regels die gelden natuurlijk.

 

[PK58]

Beste Wampier,

Bedankt voor het reageren :thumb:, ik ga het uitproberen......


Peter (alias PK58)