Command Button To Reset Values to 0.00

[CDG306]

I am trying to figure out a code to reset about 10 columns of data back to 0.00 without wiping out the formulas contained in a few of the cells. Would I be better off just making a command to set specific values for each cell and copying in the formula there? Thanks in advance.

 

[CDG306]

Figured it out. This worked for what I was needing in to.

Private Sub CommandButton1_Click()
Range("C3").Value = "0.00"
Range("C4").Value = "0.00"
Range("C5").Value = "=SUM(C3-C4)"
Range("C6").Value = "0.00"
Range("C7").Value = "0.00"
Range("C8").Value = "0.00"
Range("C9").Value = "0.00"
Range("C10").Value = "0.00"
Range("C11").Value = "0.00"
Range("C12").Value = "0.00"
Range("C13").Value = "=SUM(C5:C11)"
Range("C14").Value = "0.00"
Range("C15").Value = "=SUM(C12-C13)"
Range("C17").Value = "0.00"
End Sub

 

[Joe4]

Formulas are dynamic, no need to reset them.
You can do this with one line of code:

Private Sub CommandButton1_Click()
    Range("C3:C4, C6:C12, C14:C14, C17:C17").Value = 0
End Sub