Give this a try...
Private Sub CommandButton1_Click()
If Len(Me.Range("B1")) 0 Then
Me.Range("B1").Value = vbNullString
Else
Me.Range("B1").Value = "Market Order"
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



wrote in message
Hello, I am trying to do the following:
When I press the command button, the statement "Market Order" appears
in cell B1, however when I press it again it will remove the statement
"Market Order". Sort of like an on and off switch.

I have written the following so far, however I am having trouble in
removing the statement when I press the command button again.

Your help is appreciated

Private Sub CommandButton1_Click()
If CommandButton1.Value = True Then
Range("B1").Value = "Market Order"
Else
Range("B1").Value = ""
End if
End Sub
Thank you
Mike