How to make a shape display when a cell is click.

Need help with programming.
This is what I am trying to do:

When a user click on a cell in column A, a shape appears. And when they click on a cell other than a cell in column A, a shape disappears. The cell in Column A has no value.

Here is my code so far:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Excel.Range
Set r = Me.Range("A140:A150")

With ActiveSheet.Shapes("Create_New_Row")
If Target.Value = "new" Then
.Visible = True
Else
.Visible = False
End If
End With
End Sub

Please help...