Excel - LISTAS

Tengo una Hoja1 y en la celda A1 tengo una lista desplegable haciendo referencia a B1:B4, como le hago para que en A1 al darle clic y elegir un numero de dicha lista me limpie el contenido en C4

En el codigo de la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] = 1 Then
[c4] = ""
End If
End Sub

Abraham