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" <bobwilson.25paez_1144088102.9016@excelforum-nospam.com> wrote
in message news:bobwilson.25paez_1144088102.9016@excelforum-nospam.com...
>
> 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
>
>
> --
> bobwilson
> ------------------------------------------------------------------------
> bobwilson's Profile:
> http://www.excelforum.com/member.php...o&userid=33046
> View this thread: http://www.excelforum.com/showthread...hreadid=529300
>

[bobwilson]

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