i've been doing vb et al since 91
experience
try try try again
the line i said
was
srange=mid(srange,1,len(srange)-1)
should be
srange=srange & mid(srange,1,len(srange)-1)
the help in excel is good
and so is this forum