Managed to get something like this to work over here ...

Press Alt+F11 to get to VBE
Click InsertModule
Copy n paste the UDF below (from a google trawl):

'-------
Function IsProtected() As Variant
Application.Volatile
IsProtected = Application.Caller.Parent.ProtectContents
End Function
'------

Press Alt+Q to get back to Excel

Placed in a worksheet cell:
=IF(isprotected(),"Protected", "Unprotected")

--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
"SteveB" wrote:
A good while back I wrote the following formula:

=IF(PERSONAL.XLS!IsProtected.IsProtected(), "Protected", "Unprotected")

This formula was designed to use conditional formating and display the words
"Protected" or "Unprotected" in different colors to quickly identify if the
worksheet is protected or not.

Now that it is time to update the worksheet for a new year, the formula is
broken! All I get is "#NAME?". Unfortunately I don't remember what I did, or
understand what is going on well enough to debug, can anyone help?