If Worksheets("Sheet1").ProtectContents = True Then
MsgBox "The contents of Sheet1 are protected."
End If
--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Barb Reinhardt" wrote in message
...
How would I check to see if the activesheet is protected? I know how to
protect and unprotect programmatically, but only want to unprotect it if
it's
already protected.

Thanks