Application VisualBasic Script

Sub MenuCommand2_OnAction()
  With CommandBars.ActionControl
    If .State = msoButtonDown Then
      .State = msoButtonUp
    Else
      .State = msoButtonDown
    End If
  End With
End Sub