clear range before Save

[David0079]

Hi, Does any one know of a way to clear/delete a range when the save icon is pressed or when someone goes to file save as etc? I have tried....

Sub ThisWorkbook_BeforeSave(ByVal SaveAsUI As Boolean, ByRef Cancel As Boolean)
  Worksheets("sheet2").Range("B2:B100") = ClearContents
End Sub

Within 'thisworkbook' but its not working for me. Has anyone done anything like this before?Dave

 

[Derek Brown]

Try

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("sheet2").Range("B2:B100").ClearContents
End Sub

placed in ThisWorkbook object.