code problem
 

I run the code below in a test file and it works fine. I
paste it into my target file and I get errors? See the *s
below. The first error says "Run-time error '2147467259
(80004005)': Unspecified error." The second error
says: "Run-time error '70': Permission denied". ??



* CCFCLC.cmbfc.Clear
Worksheets("CodeGrid").Activate
Range("A1").Select
Do While True And ActiveCell.Row < 75
If Worksheets("Coding").Range("A1").Value = _
ActiveCell.Value Then
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop
If Worksheets("Coding").Range("A1").Value < _
ActiveCell.Value Then
Exit Sub
End If
ActiveCell.Offset(0, 1).Select
Do While ActiveCell.Column < 50
If ActiveCell.Value < "" And _
LCase(ActiveCell.Value) < "no" Then
* CCFCLC.cmbfc.AddItem Cells(1, _
ActiveCell.Column).Value
End If
ActiveCell.Offset(0, 1).Select
Loop