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).
|