View Single Post
 
Old 07-18-2019, 08:10 PM
gmaxey gmaxey is offline Windows 10 Office 2016
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,421
gmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the rough
Default

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/
Reply With Quote