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