Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Done" Then
CommandButton1.Caption = "Edit"
Range("A1") = ""
Else
CommandButton1.Caption = "Done"
Range("A1") = 1
End If
End Sub

--

Regards,
Nigel




"Les Stout" wrote in message
...
Hi all, this is probably so easy but it is eluding me !!

I need to make an edit button that inserts a 1 in A1 and the caption
then changes to "DONE" and when clicked again it removes the 1 from A1
and the caption then changes back to "EDIT"


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***