Sorry I missed the line Id = Trim(Rng.text)
Graham Mayor - MS MVP (Word) 2002-2019 Visit my web site for more programming tips and ready made processes http://www.gmayor.com
Forum Rules