Hi Garry, hi Howard,

Am Tue, 06 May 2014 13:13:34 -0400 schrieb GS:

Good catch! Should be...

sMsg = sMsg & Join(Split(Mid(sIdShts, 2), ","), vbLf)

..to remove the leading ","!

if you want all matches be listed you must change:
sIdShts = sIdShts & ",'" & ws.Name & "'!" & rng.Address



Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional