Shape Button to Toggle Button

[bamaisgreat]

I am trying to use a shape to toggle the code below. I would like when the button is true it makes one cell equal another and when it false simply do away with it.

Sub DWG_SAME_AS_PROG()

    Range("J4:N4").Select
    ActiveCell.FormulaR1C1 = "=R[2]C[-8]"
  
End Sub