Hi
not tested but give it a try

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
static status
If Target.Address = "$A$1" Then
AddFundButton.Visible = True
status = True
Elseif status
AddFundButton.Visible = False
status = False
End If
End Sub



--
Regards
Frank Kabel
Frankfurt, Germany

Bura Tino wrote:
Hi,

I have a procedure (shown below) which makes a Controls Toolbar
button
vizible if "A1" is selected. An unfortunate side effect is that
having this procedure kills the ability to copy and paste -- if
something had been selected and copied, it disappears once any other
cell is clicked.

Can anyone suggest a work around?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
AddFundButton.Visible = True
Else
AddFundButton.Visible = False
End If
End Sub


Many thanks in advance,

Bura