Thanks.

But I cannot get rid of the same problem -- Error 13: Type Mismatch, s
I do not know how to fix it.

Warning on this line:
If Trim(c.Value) < "" And IsNumeric(Left(Trim(c.Value), 6)) Then

Thanks

--
Message posted from http://www.ExcelForum.com