Better:
Assign the shape(s) to "Disappear":
Public appcall
Sub Disappear()
appcall = Application.Caller
ActiveSheet.Rectangles(appcall).Visible = False
End Sub

Then, have a worksheet_SelecitonChange event to do this (so that the 1
second only delay no longer plays a part:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Rectangles(appcall).Visible = True
End Sub

Bob Umlas
Excel MVP

"geebee" wrote in message
...
hi,

I have some rectangle autoshapes in my spreadsheet that are transparent.
Although it looks cool, users cannot click on the cells behind it, so I
have
been requested to get rid of the transparent autoshapes. Can anyone ell
me
how to still have these transparent boxes in front of the cells while
still
allowing the user to click on the cells?

Thanks in advance,
geebee