Sorry Logit I don't really know what to do for the emailing
but I do know that if you load the dictionary item with the email address
by change this
uniqueTerms.Add cell.Value, cell.Value
to
uniqueTerms.Add cell.Value, cell.offset(,1).Value
this will show the sheet and who to email
Code:
'Code from here up to next line of asterisks
'*******************************************************************
' info for email
MsgBox "the sheet to email is " & wsDest.Name & vbLf & _
"the email goes to " & uniqueTerms(wsDest.Name)
Next term