Cannot insert Sumif formula 1

[CrazyManiac]

I need to sum all positive values in column A on Sheet1.Typing
=Sumif(A1:A100;">0") in Formula Bar gives an expected result.

But the code
Sub tst()
ThisWorkbook.Worksheets("Sheet1").Cells(1, 101).Value = "=SUMIF(A1:A100;"">0"")"
End Sub
returns an
"Application-defined or object-defined error"

Something wrong with my code?

 

[PHV]

And this ?
ThisWorkbook.Worksheets("Sheet1").Cells(1, 101).[highlight]Formula[/highlight] = "=SUMIF(A1:A100;"">0"")"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[CrazyManiac]

ThisWorkbook.Worksheets("Sheet1").Cells(1, 101).Formula = "=SUMIF(A1:A100;"">0"")"

Returns the same error

 

[PHV]

And this ?
ThisWorkbook.Worksheets("Sheet1").Cells(1, 101).Formula = "=SUMIF(A1:A100[highlight],[/highlight]"">0"")"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[CrazyManiac]

This code

ThisWorkbook.Worksheets("Sheet1").Cells(1, 101).Formula = "=SUMIF(A1:A100,"">0"")"

works. Thanks for help.

 

[PHV]

Tip: use the macrorecorder.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244