how to change the text of the button, accordingly to a cell that reads 'true'/'false'

okie. am creating this form which requires someone to key in name and figures. to prevent people from keying in alphabets as figures, i used the "isnumber" function to allow the cell to read "true/false"

what i like to have is that:

when the cell reads "false", the button will read as "ERROR" and is unclickable
when the cell reads "true", the button will read "OK" and is clickable, meaning the data will be written.

am a noob in this, kindly pls help in layman terms! really appreciate a lot!!

Try this, just change the cell that has the ISNUMBER function in and the button name to your button name and the macro name to the action you want to happen when you click it.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "TRUE" Then
    ActiveSheet.Shapes("Button1").Select
    Selection.Characters.Text = "OK"
    Selection.OnAction = "Enter_Macro_Name_In_Here"
Else
      ActiveSheet.Shapes("Button1").Select
    Selection.Characters.Text = "ERROR"
    Selection.OnAction = ""
End If
End Sub

jonn! thanks for the prompt reply.

i dont really understand ur instructions before the codes. could u use layman terms and tell me what to click and which button to press, am a noob here....

how do u know the name of the button? really appreciate that u could help

Change this line where it say "A1" to the cell where you ISNUMBER function is

If Range("A1") = "TRUE" Then

Change this line where it says "BUTTON1" to the button name of the button you want to change

ActiveSheet.Shapes("Button1").Select

your'll need to change both lines which have the "BUTTON1" in

The Finanlly change this line to the macro name you want to run

Selection.OnAction = "Enter_Macro_Name_In_Here"

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "TRUE" Then 

    ActiveSheet.Shapes("Button1").Select
    Selection.Characters.Text = "OK"
    Selection.OnAction = "Enter_Macro_Name_In_Here"
Else
      ActiveSheet.Shapes("Button1").Select
    Selection.Characters.Text = "ERROR"
    Selection.OnAction = ""
End If
End Sub

[/QUOTE]

right click on the button and it name will apear in the top left of the sheet

cant work...can anyone help? anyone?

whats not working about it?