I know this is going to be something really easy but I am having trouble figuring it out. I keep getting a Type MisMatch Error on this:
bmrp = Application.VLookup(ComboBoxJumpToPart.Value, bmlu, 4, False)
I tried setting Dim bmrp As Variant but bmlu returns an integer and bmrp returns a string which causes my code to fail.
Any Ideas? I'm stuck. Thanks Jody

Dim bmrp As String
Set bmlu = Range("BidmateParts")
bmrp = Application.VLookup(ComboBoxJumpToPart.Value, bmlu, 4, False)

If IsError(bmrp) Then
MsgBox "Yep, it's an error!"

Else
If Me.TextBoxGradeA_RetailValue.Value < (bmrp) Then
Me.TextBoxGradeA_RetailValue.Value = (bmrp)
Me.TextBoxGradeA_RetailValue.ForeColor = &HFF&
Me.LabelBidmatePriceDiffers.Visible = True
Me.LabelRetailPriceRaiseLower.Visible = True
Me.LabelRetailPriceRaiseLower.Caption = "Raised"
ElseIf Me.TextBoxGradeA_RetailValue.Value > (bmrp) Then
Me.TextBoxGradeA_RetailValue.Value = (bmrp)
Me.TextBoxGradeA_RetailValue.ForeColor = &HFF&
Me.LabelBidmatePriceDiffers.Visible = True
Me.LabelRetailPriceRaiseLower.Visible = True
Me.LabelRetailPriceRaiseLower.Caption = "Lowered"
ElseIf Me.TextBoxGradeA_RetailValue.Value = (bmrp) Then
Me.LabelBidmatePriceDiffers.Visible = False
Me.TextBoxGradeA_RetailValue.ForeColor = &H80000008
Me.LabelRetailPriceRaiseLower.Visible = False
End If
End If