=IF(AND(LEN(TRIM(A1))0,EXACT(A1,UPPER(A1))),TRUE, FALSE)

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MusicMan" wrote in message
...
Very close, but blanks also came back true. I can handle them in IF test
though. Thanks very much.

"Tom Hutchins" wrote:

To check A1, in another cell enter

=IF(EXACT(A1,UPPER(A1)),TRUE,FALSE)

Copy as needed. Hope this helps,

Hutch

"MusicMan" wrote:

Is their a function or way to use the UPPER function to test if the
contents
on a cell are all Upper case?

Alternatively if someone has a macro to do so I could copy I would
appreciate.