Private Sub ServiceButton_Click()
Dim Serv As Range
Dim vars As Variant
Set Serv = Range("C1164:C2721")
For Each vars In Serv
With Worksheets( 1 ).Range("C1:C1082")
    Set c = .Find(vars, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Cells(c.Row, c.Column).Color =  3  -------------- ошибка!!!!!!!!!!
            TextBox1 = TextBox1 & c.Value & vbCrLf
            TextBox2.Text = TextBox2.Text & CStr(Cells(c.Row, c.Column -  2 ).Value) & vbCrLf
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Next vars
End Sub