Run time error 424

[manthony]

Hi, I am getting a run time error 424 on the code below:

If Sheets("Specs").Range("B4").Value = Application.WorksheetFunction.VLookup(Sheets("Specs").Range("B4").Value, Sheets("InvoiceInfo").Range("E1:E100"), 1, False).valu Then
MsgBox "This is a fixed item. "
Exit Sub
End If


I do not have any Dim set. I am guessing that is the problem. Cell B4 on Specs is a word and is trying to see if the same work is on sheet InvoiceInfo column E. I am unsure of what Dims I need to set. Any ideas?

 

[manthony]

Hi, sorry please ignore this. I figured it out.

 

[Trebor76]

Hi manthony,

Not sure what's wrong with your code but this works:

Option Explicit
Sub Macro1()

    If Sheets("Specs").Range("B4").Value = Evaluate("VLOOKUP(Specs!B4,InvoiceInfo!E1:E100,1,FALSE)") Then
        MsgBox "This is a fixed item."
        Exit Sub
    End If
    
End Sub

Regards,

Robert