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 :-D

 

[VoG]

Try

Worksheets("sheet2").Range("B2:B100").ClearContents

 

[David0079]

Nope, still not working, I don't get an error though so maybe I'm half way there Anything else I could try?