Probelm with a VBA Index Match Function

[TonySondergeld]

The Code I trying to get to work below come up with a error (Unable to get the MATCH property of the worksheet Function class. How it is to work when the combobox value is changed it lookup the value in a worksheet rang:F4:F1500 and when found return the matching row cell in column H4:H1500.
Any help would be great thanks you
Private Sub CBX_BagNo_Change()
Dim i
Dim iRange As Range, xRange As Range
Set iRange = Sheets("Bag Info Data").Range("F4:F1500")
Set xRange = Sheets("Bag Info Data").Range("H4:H1500")
i = CBX_BagNo.Value
Sheets("Print Bag Flags").TBX_ManufactureDate.Value = ""
Sheets("Print Bag Flags").TBX_ManufactureDate.Value = Application.WorksheetFunction.Index(iRange, Application.WorksheetFunction.Match(i, x, 0), 1)
End Sub

 

[MARK858]

Should the x in the line below not be xRange ?

Sheets("Print Bag Flags").TBX_ManufactureDate.Value = Application.WorksheetFunction.Index(iRange, Application.WorksheetFunction.Match(i, [B][COLOR="#FF0000"]x[/COLOR][/B], 0), 1)