By using that custom format, you don't need to look at the value in the cell.
You just need to look to see if there's something in there.

if activesheet.range("a1").value = "" then
'not checked
else
'is checked
end if

If you give that cell that custom format, then no matter what you type in that
cell, you'll see the checkmark--You can type an X, a space character, a dot or
even a paragraph of 3000 characters. You'll see the same checkmark.

aftamath wrote:

Hey dave, thanks for the info on this. Very useful. I used the option at
the bottom. But, I can't seem to get VBA to recognize that there is a check
mark in the cell containing this type of symbol. What exactly is the
"ü;ü;ü;ü". How does VBA recognize this. Thanks.

Format your column of cells in a nice way:
Format|cells|number tab|custom category
In the "type:" box, put this:
alt-0252;alt-0252;alt-0252;alt-0252

But hit and hold the alt key while you're typing the 0252 from the numeric
keypad.

It should look something like this when you're done.
ü;ü;ü;ü
(umlaut over the lower case u separated by semicolons)

And format that range of cells as Wingdings.

--

Dave Peterson