Graham,


True. Didn't think of that as a decimal wasn't in the example text. So, yes leave your line as it and append to your existing:

oCell.End = oCell.End - 1
oCell.Text = oRng.Text
If Right(oCell.Text, 1) = "." Then oCell.Text = Left(oCell.Text, _
Len(oCell.Text) - 1)


To eliminate the period (when it is a period).

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/