Excel - Encontrar celda por color

Sub BuscarCeldasxColor()

' Acceso directo: CTRL+q

'

    Range("A1").Select

    Dim i, j As Integer

    i = Range("A1").Value   ' el numeros de registros  a buscar

    c =.Range("B1").Interior.Color  ' aqui colocas el color a buscar 

    Sheets(1).Select

    For k = 1 To i

            If Range("C"& k).Interior.Color = c Then

                    'aqui lo que quieres hacer   si lo encuentra

                     msgbox "Celda color Encontrada en  C" & k

            End If

    Next k

End Sub

Private Sub CommandButton1_Click()

Dim c As Object

Dim buscar1 As String

buscar1 = txttruck.Text

clrgreen = RGB(0, 255, 0)

clrwhite = RGB(255, 255, 255)

clrred = RGB(255, 1, 1)

Set c = Range("C:C").Find(what:=buscar1, Lookat:=xlPart)

c.Select

Do While ActiveCell <> Empty

       If ActiveCell.Interior.color = clrwhite Then

            If ActiveCell = txttruck.Text Then

            ActiveCell.Select

            Selection.EntireRow.Select

            Selection.Interior.color = clrred

            Set c = Range("C:J").Find(what:=buscar1, Lookat:=xlPart)

            c.Select

            End If

       End If

    ActiveCell.Offset(1, 0).Select

Loop

End Sub

Range("A1").Select

     i = 300  ' el numeros de celdas a buscar 

    'Sheets(1).Select ' o tu hoja ..... 

    For k = 1 To i

            If Range("C"& k).Interior.Color = clrred Then

                    'aqui lo que quieres hacer   si lo encuentra

                     msgbox "Celda color Encontrada en  C" & k

            End If

    Next k

Private Sub CommandButton3_Click()

clrred = RGB(255, 1, 1)

Range("C2").Select

Do While ActiveCell <> Empty

    If ActiveCell.Interior.ColorIndex = clrred Then

    MsgBox "Hola"

    End If

    ActiveCell.Offset(1, 0).Select

    Loop

End Sub

Private Sub CommandButton3_Click()

clrred = RGB(255, 1, 1)

Range("C2").Select

Selection = ActiveCell

Do While ActiveCell <> Empty

    If ActiveCell.Interior.color = clrred Then

    MsgBox "Hola"

    End If

    ActiveCell.Offset(1, 0).Select

    Loop

end sub