If statement use with several and

Hi guys,
I'm trying to wrote a message in a textbox, with this macro;

Sub TextBox()
If (A36 = 1) And (B36 = 1) And (C36 = 1) And (D36 = 1) And (E36 = 1) And (F36 = 1) And (G36 = 1) And (H36 = 1) And (J36 = 1) Then
TextBox.Text = "3RT20-1AB01"
End If
End Sub

when I validated my entery it said; compilation error (Function or awaiting variable)???
His anyone know what i'm missing or doing wrong, I have to say that I would like to add a lot OR IF statement after this one will be solve.

Thank you to every one.

Hi Buddypaint,

You have the incorrect syntax, try this:
Sub Msg_Box()
If Range("A36").Value = 1 And Range("B36").Value = 1 Then
MsgBox "3RT20-1AB01"
End If
End Sub

NOTE: You cannot use the MsgBox as the name of the subroutine since it is one of the reserved words. Hence, I change it from MsgBox to Msg_Box.

thanks,
Lawrence

I was looking at your file and I cannot find a declared text box. Have you created a text box on one of the worksheets?

LB