Hi,

Are you absolutely sure you want to delete everyting? Warning this will
delete everything in Sheet1 and I mean everything so use it with caution and
try it on a backup wotkbook first. Alt + F11 to open VB editor. Double click
'This workbook' and paste the code in.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").UsedRange.ClearContents
End Sub

Mike

"shiro" wrote:

Hi all,
I want to delete all dat in the sheet1 when I close the workbook,
but not understand to write VBA code for excel.Is it possible ?
How to write it?

Many thank's.