Problem in VLOOKUP Function

[Andrew_A]

Hi there,
Can someone tell me why this code does not run. I'm new to excel and just playing around with some basic functions

Sub GetPrice()
Dim PartName As Variant
Dim Price As Double
PartNum = InputBox("Enter the Part Number")
Price = WorksheetFunction.VLookup(PartNum, Range("B2:C5"), 2, False)
MsgBox PartNum & "Cost" & Price
End Sub

The table is very basic and I've added it below.

PartName	Price
1	$23.00
2	$45.00
3	$67.00

<TBODY>
</TBODY><COLGROUP><COL span=2></COLGROUP>

Thanks!

<TBODY>
</TBODY><COLGROUP><COL span=2></COLGROUP>

 

[L. Howard]

Hi Jim885,

Here is a link to sheet that does that and a bit more as far as putting info on the sheet as produced by the code. Sorta like filling out an order form.

https://www.dropbox.com/s/nj9m0p8mx2qq9oj/Vlookup%20code%20with%20Qty-Price_Running%20Total%20Drop%20Box.xlsm

Regards,
Howard

 

[Trebor76]

Thanks Robert, thats gooder than gold.!!

Thanks for that and you're welcome