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

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

still confused will enclose complete will you tell me if I am going right way
Thank You

Selection.ClearContents
Worksheets("Data").Activate
Range("C4:L100").Select
Worksheets("MailE").Activate
Range("A2:E100").Select
Worksheets("MailD").Activate
Range("A2:F100").Select
Worksheets("Motorcycle").Activate
Range("A2:H60").Select
Worksheets("Indian").Activate
Range("A2:H60").Select
Worksheets("Native").Activate
Range("A2:H60").Select
Worksheets("Donors").Activate
Range("A2:H60").Select
Worksheets("Desc").Activate
Range("A2").Select
Worksheets("Limo Bios").Activate
Range("b3,b5,b7,b9,b11,b13,b15,b17").Select
Worksheets("Balance").Activate
Sub ClearConstants()
Dim rngConstants As Range

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

If Not rngConstants Is Nothing Then rngConstants.ClearContents
End Sub
'Range("E3:E30").Select
End Sub


"Jim Thomlinson" wrote:

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

I'm still a bit confused exactly what you want, but this code will clear out
the constants from all of the ranges you have specified in your code...

Sub ClearRanges()

Call ClearConstants(Worksheets("Data").Range("C4:L100") )
Call ClearConstants(Worksheets("MailE").Range("A2:E100" ))
Call ClearConstants(Worksheets("MailD").Range("A2:F100" ))
Call ClearConstants(Worksheets("Motorcycle").Range("A2: E100"))
Call ClearConstants(Worksheets("Indian").Range("A2:H60" ))
Call ClearConstants(Worksheets("Native").Range("A2:H60" ))
Call ClearConstants(Worksheets("Donors").Range("A2:H60" ))
Call ClearConstants(Worksheets("Desc").Range("A2"))
Call ClearConstants(Worksheets("Limo
Bios").Range("b3,b5,b7,b9,b11,b13,b15,b17"))
Call ClearConstants(Worksheets("MailE").Range("A2:E100" ))

Worksheets("Balance").Activate

End Sub

Sub ClearConstants(rng As Range)
Dim rngConstants As Range

On Error Resume Next
Set rngConstants = rng.SpecialCells(xlCellTypeConstants)
On Error GoTo 0

If Not rngConstants Is Nothing Then rngConstants.ClearContents
End Sub

--
HTH...

Jim Thomlinson


"Curt" wrote:

still confused will enclose complete will you tell me if I am going right way
Thank You

Selection.ClearContents
Worksheets("Data").Activate
Range("C4:L100").Select
Worksheets("MailE").Activate
Range("A2:E100").Select
Worksheets("MailD").Activate
Range("A2:F100").Select
Worksheets("Motorcycle").Activate
Range("A2:H60").Select
Worksheets("Indian").Activate
Range("A2:H60").Select
Worksheets("Native").Activate
Range("A2:H60").Select
Worksheets("Donors").Activate
Range("A2:H60").Select
Worksheets("Desc").Activate
Range("A2").Select
Worksheets("Limo Bios").Activate
Range("b3,b5,b7,b9,b11,b13,b15,b17").Select
Worksheets("Balance").Activate
Sub ClearConstants()
Dim rngConstants As Range

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

If Not rngConstants Is Nothing Then rngConstants.ClearContents
End Sub
'Range("E3:E30").Select
End Sub


"Jim Thomlinson" wrote:

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