Yet another difference you failed to mention...
To deal with that, you might change:
.Cell(x, 2).Range.Text = "PV: " & xlWkSht.Range("B" & r).Value
to:
.Cell(x, 2).Range.InsertAfter xlWkSht.Range("B" & r).Value
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|