Всем привет! Взял код из справки F1 по Find  
 
Sub CheckBox1_Click()  
With Range("a1:a500")  
   Set c = Rows.Find(TextBox1.Text, LookIn:=xlValues)  
   If Not c Is Nothing Then  
       firstAddress = c.Address  
       Do  
           Cells(c, 2).Value = CheckBox1.Value  
           Set c = .FindNext©  
       Loop While Not c Is Nothing And c.Address <> firstAddress  
   End If  
End With  
End Sub  
 
Зараза работает только с числами, а как только видит текст - выбивает ошибку на строке Cells(c, 2).Value = CheckBox1.Value. Помогите разобраться, пожалуйста.