Hi Mike,

Try this

With ActiveSheet
If Not .ProtectContents Then
.Protect
Else
.Unprotect
End If
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mike" wrote in message
...
I want to Create a simple Sub that protects the sheet if it is not
currently
protected, and unprotects the sheet if it is protected...
i.e.
Sub SheetProtect ()
If ActiveSheet.Protect = true then
ActiveSheet.Unprotect
Else
ActiveSheet.Protect
End If
End Sub

The part that I need help with is obviously the "If" argument.

Any help would be appreciative.