Sub GetPrice() Dim PartNum As Variant Dim Price As Double PartNum = InputBox("Enter the Part Number") Sheets("Prices").activate Price = WorksheetFunction.VLookup(PartNum, range("PriceList"), 2, False) MsgBox PartNum & " costs " & Price End Sub