UDF #VALUE!
 

This function returns numbers when entered into the appropriate
cells. Then when other calculations are ran on other sheets, it bugs
out and changes to #VALUE! Can any one tell me why?

Thanks,
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

UDF #VALUE!
 

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