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

**romancebao** · 10-26-2009, 04:02 PM

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...

**mrice** · 10-26-2009, 04:28 PM

It sounds like you need to use the Worksheet_SelectionChange event instead to get your code to respond to a click.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
End Sub

**mikerickson** · 10-26-2009, 05:00 PM

I think this will do what you want. This goes in the sheet's code module.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    ActiveSheet.Shapes("Create New Row").Visible = (Target.Column * Target.Cells.Count = 1)
End Sub