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

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

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

--
bobwilso
-----------------------------------------------------------------------
bobwilson's Profile: http://www.excelforum.com/member.php...fo&userid=3304
View this thread: http://www.excelforum.com/showthread.php?threadid=52930