Divinding a range with a commandbutton

[Bishonen]

Hi all,

Lets say that i have A1:E5 filled with formulas (which return a number in the end). I'd like to add a commandbutton to the sheet which would cause the desired range to be divided by 40. If i click the commandbutton once again, I'd like to number to go back to its previous state (not divided by 40).


Is there any chance for this?

[Bishonen]

Here's a code I came up with. It works pretty good. The downside of this code is that the formula gets replaced with a value. I'd like the formula to stay intact

Private Sub CommandButton1_Click()

If Range("Z1") = "" Then

    For Each Cell In Range("A1:E4")
    
        Cell.Value = Cell.Value / 40
        
        Next Cell
        
        Range("Z1") = "Test"
        
        Else
        
        For Each Cell In Range("A1:E4")
        
        Cell.Value = Cell.Value * 40
        
        Next Cell
        
        Range("Z1") = ""
        
        End If


End Sub