Hi
try
For Each c In ActiveSheet.Columns(1)
if len(trim(c.value))=6 then
If IsNumeric(Left(Trim(c.Value), 6)) Then
c.interior.colorindex=3
end if
End If
Next c
End Sub
--
Regards
Frank Kabel
Frankfurt, Germany
Thanks.
But I cannot get rid of the same problem -- Error 13: Type Mismatch,
so 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/