van blad1 een deel mailen met vba

[ewh]

Ik denk dat ik het heb gevonden
Dim mailadres As String
mailadres = Workbooks("zorgmaatje kmdeclaratie AH.xls").Sheets("Blad2").Range("B5")

.To mailadres

en dat werkt prima

bedankt voor alle hulp, ben er erg blij mee en weer wat geleerd.

 

[AHulpje]

Dan lag het dus toch aan de te oude versie van Office.
Maar dit zou dan ook moeten werken:

        .To = CStr(Sheets("Blad2").Range("B5"))
        .CC = CStr(Sheets("Blad2").Range("B6"))