Running to the end of the rows seems superfluous, it should check for the
end of the data to stop unnecessary iterations of the loop.

--

HTH

RP

"ca1358" wrote in message
...
For index = 2 To Source.Rows.Count

What does the 2 mean in this line
--
ca1358