Since it seems you don't need the 'ft & in to in' conversion, you may as well comment-out or do away with the three lines containing:
StrConv = Evaluate(Replace(Replace(StrConv, "-", "+"), "'", "*12+0"))
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|