quotation marks for excel function criteria

[alktrigger]

i'm trying to automate the excel function =COUNTIF(D248, "> 0") in my vb code, but how do I work around the quotation marks in the criteria field?

strCell2 = "= COUNTIF(" & strChar(o)& "2:"& strChar(o) & (intRecordNumber - 1)  & ", [COLOR=Red]"> 0"[/COLOR] )"

 

[SOS]

Use single quotes for the red part.

 

[alktrigger]

can you show me exactly what you're talking about, because trying this is causing Run-time error 1004.

here is what i changed it to.

strFormula2 = "= COUNTIF(" & strChar(o) & "2:" & strChar(o) &_
        (intRecordNumber - 1) & ",[COLOR=Red]' >0 '[/COLOR])"

 

[SOS]

I had meant what you had, but since it is giving you a problem, try it this way:

strFormula2 = "= COUNTIF(" & strChar(o) & "2:" & strChar(o) &_
(intRecordNumber - 1) & "," & Chr(34) & ">0" & Chr(34) & ")"