help with if is error

[kevin1970]

Hi all
i have attached part of my code below. i cannot get the is iferror code to work, can anyone help please
thanks
kevin



Dim partnumber As Range
Dim number As Variant
Dim number1 As Variant
Dim number2 As Variant
Dim partnum As Variant
Dim partnum1 As Variant
Dim partnum2 As Variant


Sheets("spares").Activate
Set partnumber = Sheets("spares").Range("A1:A137")


partnum = Val(txtpart)
partnum1 = Val(txtpart1)
partnum2 = Val(txtpart2)


number = Application.vlookup(partnum, partnumber, 1, False)
number1 = Application.vlookup(partnum1, partnumber, 1, False)
number2 = Application.vlookup(partnum2, partnumber, 1, False)
If IsError(number) & (number1) & (number2) Then
MsgBox "PART NUMBER ENTERED IS INCORRECT", vbExclamation
End If

 

[Norie]

Change & to And.

 

[VoG]

Perhaps

If IsError(Number) And IsError(number1) And IsError(number2) Then

 

[kevin1970]

Thanks for the help its 'OR' i should be using. thanks all