So you want to clear all of the constants from a given range but leave the
formulas in tact???

Sub ClearConstants()
Dim rngConstants As Range

On Error Resume Next
Set rngConstants = Range("A1:C10").SpecialCells(xlCellTypeConstants)
On Error GoTo 0

If Not rngConstants Is Nothing Then rngConstants.ClearContents
End Sub
--
HTH...

Jim Thomlinson


"Curt" wrote:

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