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

[eSkiSo]

No fim em vez de End Select não devia ser End If ?

[Tânia]

Mesmo com essa alteração acusa um erro nesta parte:

"Sub sol()

Private Sub sol Worksheet_Change(ByVal Target As Range"

---

Já encontrei o problema!

 

Obrigado!

[Iniciado21]

Partilha a resolução, assim ajudas o proximo