see my response earlier.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Francois via OfficeKB.com" <u18959@uwe wrote in message
news:717a78b2eedbc@uwe...
Vergel Adriano wrote:
Francois,

Try declaring the sendtoX variables as string.

Dim sendto1 As String

Then, when assigning the values, remove the "Set"

If CheckBox1.Value = True Then sendto1 =
Sheets("EMAILS").Range("C2").Value

Hi Folks,

[quoted text clipped - 118 lines]
'


Thanks for the quick reply, but when I try that I still get the same Error


End Sub

--
Message posted via http://www.officekb.com