Run -time error '1004' Method 'Range' of object'_Global' failed

[GJennin7]

Can anyone shed some light on the below run time error for the line highlighted. I am a newby guy's so don't get too technical on me. Thanks for any advice.
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

 

[davesexcel]

I'm going to Guess there is no range named "PriceList"

 

[JoeMo]

That error indicates that Price is returned as an error, likely because PartNum can't be found. To avoid the run time error, try it like this;

Sub GetPrice()
Dim PartNum As Variant
Dim Price As Variant
PartNum = InputBox("Enter the Part Number")
Sheets("Prices").Activate
Price = Application.VLookup(PartNum, Range("PriceList"), 2, False)
If IsError(Price) Then
    MsgBox "Can't find Part Num " & PartNum
Else
    MsgBox PartNum & " costs " & CDbl(Price)
End If
End Sub

NOTE that Price has been dimensioned as a Variant not as Double. That allows Price to be an error if PartNum not found or a double if PartNum is found.

 

[GJennin7]

I'm going to Guess there is no range named "PriceList"

Thanks Dave, You pushed me in the right direction. I did not define my range name and when I did initially incorrectly but persistence paid off.