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