if application.sum(AH2:AH1000)0 then


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mathieu" wrote in message
...
Hi,

I am trying to make the vba make a small calculation without success. I
have
tried the formula below.

What I want to do is : if (sum of AH2 to AH1000) is greater than ( 0 ) do
this, else do that.

Thanks!

Dim ca As Variant

'ca = "=sum(AH2:AH1000)"
'ca = "=SUM(R[2]C[33]:R[1000]C[33])"
'ca=FormulaR1C1 = "=sum(AH2:AH1000)"

If ca 0 Then
do this

Else

do that

End If
--
Mathieu