Using Sum in VBA

[smartpat19]

I am running a few checks at the beginning of my macro to insure that the data is correct.

What am I doing wrong? I want to check that the sum of this range is lower than 10 before running the macro.

Set costrange = wks.Range("H8:H46")        
Set costcheck = WorksheetFunction.Sum(costrange).Value


If costcheck >= 10 Then GoTo Fail

else 

end if

Thank you!

 

[Joe4]

You only use Set when setting objects (like Workbooks, Worksheets, Ranges, etc).
You do not use set when calculating values, i.e.

costcheck = WorksheetFunction.Sum(costrange).Value

 

[Fluff]

You only "Set" objects, not values, so try

Set costrange = wks.Range("H8:H46")        
costcheck = WorksheetFunction.Sum(costrange)


If costcheck >= 10 Then GoTo Fail

else 

end if

 

[smartpat19]

Thank you! very helpful!

 

[Joe4]

You are welcome. Glad we could help!