macro desprotección

Buenas Tardes,

Necesito desproteger cualquier hoja de cualquier libro con una macro, yo
tengo el pasword de protección y toy usando la siguiente, pero me manda
error

Sub desproteger()
Dim Pass As String
Pass = "secreto"
ActiveSheet.Unprotect Pass
End Sub

Saludos,