: I get a compile error: 'Next without For' when using the
: function. Any recommendations?

I suspect it is an error in copying long lines from an
email message. Try changing the "Populate dictionary"
section to this.

' Populate dictionary
For Each vCell In rngCells
If Not Unique.exists(vCell.Value) Then
Unique.Add vCell.Value, vCell.Value
End If
Next vCell