Hi Patrick,

Thanks for your help, you are so powerful !!!
How you enrich the programming knowledge?

Thanks again

TLee



dim cell as range
dim source as range
set source = Selection
for each cell in source
if LEN(cell.Value)20 then
cell.interior.ColorIndex = XLRED
end if
next

"tlee" wrote in message
...
Hi all,

How can I check the number of the characters at the specified column of
whole cells? (by using Macro)

e.g.
1) Prompt the message box to select range of columns to check.

2) input the several columns would be check

3) Macro will check all the cells of the relative columns for example,
the number character (including "Spaces" and "symbols")

4) Highlight the excess number of characters cells or activate (let the
user tor re-change the content of the problem cell to below the limit of
character length)

Assume the cell character length is 20.

Thanks for your help.

TLee