As far as i know this will work


Dim MyArr As Variant
MyArr = ThisWorkbook.Sheets("Sheet1").Range("A1:A20")


Then use MyArr in the sendto line

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Nigel" wrote in message ...
I am trying to setup to email a spreadsheet thru notes, I have everything
worked out EXCEPT for the send to I have tried the following

emailsendto=emailadd


emailadd is a range in a spreadsheet (email b2)

the format is
,"," "

but it is only sending to the first name

Now I could set the range to B2:b11, but not sure of the syntax


any help would be appreciated