right click sheet tabview codeinsert this. Now when you DOUBLE click cel
a1 b1:b12 cleared

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$A$1" Then Range("b1:b12").ClearContents
End Sub

However, I suspect you did NOT fully state your problem.

--
Don Guillett
SalesAid Software

"traveye" wrote in message
...
I want to add a button to a cell wich will clear data in a range of cells.
example: click on cell A1 and it will clear data from cell b1 thru b12. Is
this possible?