On Thursday, August 15, 2013 8:34:19 AM UTC-7, Claus Busch wrote:
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.

Gotcha, will do.

Thanks,
Howard