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

ActiveSheet.Unprotect "sesame"


"bobwilson" wrote
in message ...

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