Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Range("G20").Select
ActiveCell.FormulaR1C1 = "=R[-19]C[-6]"
ActiveWorkbook.Save
Else
Range("A5:I26").Select
Selection.ClearContents
Range("G20").Select
ActiveWorkbook.Save
End If
End Sub