excel tabblad versturen via email

[ropo64]

hallo,
ik wil graag alleen een tabblad verzenden maar er zitten wat fouten in.
als er onder E (Te verzenden tabbladen) het tabblad maar 1 keer genoemd word krijg je een foutmelding.
als je het tablad 2x invoerd word het wel verstuurd.
tevens word er een tijdelijke kopie gemaakt van het tabblad wat verstuurd moet worden maar word daarna niet verwijderd.

het bijgevoegde excel heb ik ooit van deze site vandaan gehaald.

 

[HSV]

Een array heeft minimaal twee elementen nodig, anders wordt het een string.

sq = Sheets("e-mailadressen").Range("E[SIZE=3][COLOR=#ff0000]1[/COLOR][/SIZE]:E" & Sheets("e-mailadressen").Range("E20").End(xlUp).Row)
    For X =[SIZE=3][COLOR=#ff0000] 2[/COLOR][/SIZE] To UBound(sq)

 

[ropo64]

sorry dat het zolang duurde...

bedankt voor de aanpassing.
nu krijg ik geen foutmelding meer.

Groet Robert