Excel VBA

[Tânia]

Boa tarde,
 estou com problemas na programação de VBA do Excel.

como faço para que quando numa celula do excel introduzo um valor maior do que 0 aparecer-me uma figura, por exemplo um rectangulo, e quando o valor for igual a 0 essa mesma figura deixar de aparecer.

Inseri este codigo mas dá-me erro.

Podem ajudar-me???!!!

Sub sol()
Private Sub sol Worksheet_Change(ByVal Target As Range)

Dim cel As Integer

cel = Range("A1").Value



If cel >0 then


ActiveSheet.Shapes("Sol").Visible = True

ElseIf cel = 0 then

ActiveSheet.Shapes("Sol").Visible = False


End Select
End Sub