I wrote two simple macros to share and unshare my workbook. The Unshare one works and the share one does not. Where's my error?

Here's the unshare one (which works);

Sub Unshare()
Dim PWORD As String
PWORD = "test"
ActiveWorkbook.UnprotectSharing (PWORD)
End Sub

Here's the Share one that does not work;

Sub share()
Dim PWORD As String
PWORD = "test"
ActiveWorkbook.ProtectSharing sharingpassword:=PWORD
End Sub

Thanks for any help.

ChemistB