Nevermind. The last Roundit needed to change to a SUMIT and adding an
AS Double behind the function seems to have done the trick on fixing
the error.
Sorry,
Jay
Function ThisThing(ItemNum As Range)
* * Dim InnerPack As Range, Pkgs As Range
* * Dim Match As Double, SumIt As Double
* * Set InnerPack = Sheet1.Range("W5", Sheet1.Range("W5").End(xlDown))
* * Set Pkgs = Sheet1.Range("D5", Sheet1.Range("D5").End(xlDown))
* * Match = InnerPack.Find(ItemNum.Value).Offset(0, -8).Value
* * SumIt = Application.SumIf(InnerPack, ItemNum, Pkgs)
* * ThisThing = Application.WorksheetFunction.RoundUp(RoundIt / Match,
0)
End Function