Delete data upon closing workbook

[Loisw]

Hi
is there a macro i can use to delete all data in the 'Serial Nš' cells on all the RED tabbed worksheets when the close button is clicked to close the worklbook?

[royUK]

A macro could be written, bu are the cells in the same range in each sheet?

[Loisw]

Yes they are all in H7

[ajaykgarg]

Pasting this code in "ThisWorbook" object should do it.
I am deleting from all sheets whose name starts with "S". You may want to change the if condition to check for tab color.

Please Login or Register  to view this content.

hth
Ajay

[royUK]

This checks the Tab colour & deletes H7 in the tabs that match the rquirement

Please Login or Register  to view this content.

[Loisw]

Thanks but neither of them seem to work

[royUK]

Mine works in the example workbook that you posted. attach the workbook with the code in

[Loisw]

HI
i have attached the document as requested...

[royUK]

You've pasted the code in the wrong place. the code is WorkBook_event code & should be in the workbook module, not a Standard Module