Sorry I missed the line Id = Trim(Rng.text)