Can some one please look at the following and tell me why i'm getting a
mismatch error?

Set EmailAddr = Application.InputBox("Select Email Addresses, Click on the
Email Worksheet" & vbCrLf &
'"Hold down Contrl Key to select multiple addresses", Type:=8)
Destination = ""
For Each cell In EmailAddr
If Destination = "" Then
'Destination = cell
'Else
Destination = Destination & ";" & cell
'End If

Next cell