Object Required Error

[manthony]

Hi, I am getting an Run-time err 424 Object Required error on the line of code below.

If CustomerComboBox = Application.VLookup(CustomerComboBox, InvoiceInfo.Range("NonautomatedContracts"), 1, False) Then
MsgBox "Please fix."
Exit Sub
End If

This is taking place in a Userform. The CustomerComboBox is a value from a combobox and it is comparing what is in the customercombobox against a list titled Nonautomated Contracts.

Any ideas?

Thanks - M

 

[VBA Geek]

perhaps this? but you also want to consider the fact that Application.Vlookup, if not match found, it won't return N/A, it will return a run time error. Test for Range("NonautomatedContracts").Find(.......) Is Nothing, instead.

If CustomerComboBox[B].value[/B] = Application.VLookup(CustomerComboBox[B].value[/B], InvoiceInfo.Range("NonautomatedContracts"), 1, False) Then
           MsgBox "Please fix."
           Exit Sub
    End If

 

[Norie]

What's 'InvoiceInfo'?

 

[manthony]

Hi, thanks for the help. Unfortunately, I get the same run time Object Required error.

 

[manthony]

InvoiceInfo is the name of a worksheet.

 

[Norie]

Is 'InvoiceInfo' the codename or the tab name of the worksheet?

If it's the latter you'll need to use Sheets("InvoiceInfo").