Hi Howard,

Am Thu, 15 Aug 2013 07:58:01 -0700 (PDT) schrieb Howard:

I added this to list the items searched for and the price.

Range("K1") = Cells(i, 1) & " " & Cells(i, 2)_
& " " & Cells(i, 3) & " " & Cells(i, 4) ' Items
Range("K2") = intVStore() 'Price

if there are no items found you get a error message. For the result
change at the end of the code the line with the MsgBox:

If intValVar = 0 Then
MsgBox "No items found"
Exit Sub
Else
MsgBox "The Price is: " & WorksheetFunction.Max(intVStore())
End If


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2