Comparar una celda con un rango de datos

[Ho la y bienvenido a TodoExpertos!

En C2 pon esta fórmula y la copias hacia la derecha:

=SI($A$1=C$1,1,"")

Si lo quieres con macro:

Sub Macro2()
  With Range("C2:G2")
    .Formula = "=IF($A$1=C$1,1,"""")"
  End With
End Sub

Al final de mi respuesta hay un botón para valorar, es como darle like.

Gracias por la respuesta Dante.... si funciona...pero tengo una duda... y si fuera aumentando líneas abajo con otras fechas a buscar? Como haría que no sean fijas las celdas desde C2:G2 (Ej. En A3 ingreso otra fecha y q nuevamente ponga el "1" en C3:G3... después de hacer la búsqueda en el rango respectivo..A1:G1) y así hacia abajo....