You need to add a button from the forms toolbar and link to the
following macro.

Sub DeleteAll
For each sheet in sheets
Cells.clear
Next Sheet
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=537503