Hi all gurus, i am getting errors on the code below:

I can click a worksheet and select multiple email addresses but its not
working.

Set EmailAddr = Application.InputBox("Select Email Addresses - Click on the
Email Worksheet" & vbCrLf & _
"Hold down Ctrl Key to select multiple addresses", Type:=8)

Neil.