Thanks for the reply.
Here is the code:
Sub bandwidth_on()
Range("F7").Select
ActiveCell.FormulaR1C1 = Range("F7") + "205"
ActiveSheet.Shapes("bandwidth_toggle").Select
ActiveSheet.Shapes("bandwidth_toggle").TextFrame.Characters.Text = "Toggle Off"
Selection.OnAction = "bandwidth_off"
End Sub
Sub bandwidth_off()
Range("F7").Select
ActiveCell.FormulaR1C1 = Range("F7") - "205"
ActiveSheet.Shapes("bandwidth_toggle").Select
ActiveSheet.Shapes("bandwidth_toggle").TextFrame.Characters.Text = "Toggle On"
Selection.OnAction = "bandwidth_on"
End Sub
Bookmarks