this is what I wrote but it will clear formulas would someone inject the
change needed into one place. Then i can see what needs to be done. There is
a lot more to this.
Thanks Much

Selection.ClearContents
Worksheets("Data").Activate
Range("C4:L100").Select
Worksheets("MailE").Activate
Range("A2:E100").Select