F Frank Kabel Jul 13, 2004 #2 Hi try If Worksheets("Sheet1").ProtectContents Then MsgBox "Sheet1 is protected." End If