Unprotect not working

[bobwilson]

Does any one know why Unprotect is not working on the below code for the
Active Sheet.

Sub custlistcombobox()

ActiveSheet.unprotect

Dim FirstAddress As String
Dim c As Range

With Worksheets("Customer List").Range("A2:A15501")
Set c = .Find(what:=Range("C137"), LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
With ActiveSheet.Range("F105")

..Value = c.Offset(, 1) ' Name
..Offset(1, -3) = c.Offset(, 2) ' Phone
..Offset(1, 0) = c.Offset(, 3) ' Fax
..Offset(2, -3) = c.Offset(, 4) ' Email
..Offset(4, -3) = c.Offset(, 7) ' PST
..Offset(4, 0) = c.Offset(, 8) ' GST
..Offset(23, -2) = c.Offset(, 13) 'Customer Comments

End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With

ActiveSheet.Protect

End Sub

 

[Vasant Nanavati]

If there is a worksheet protection password, you need to supply it to the
macro, e.g.:

ActiveSheet.Unprotect "sesame"

 

[bobwilson]

I don't use passwords. In all my Macros I Unprotect the sheet at th
beginning of the macro and then Protect the sheet at the end. For som
reason this macro does not want to unprotect the activesheet