members i need your help!

[pnuckle]

Whenever i try to run this code it gives me error 1004 (application defined or object defined error)

Sub Overall2Summary()
dim j as integer
j = 250

Sheets(2).Cells(5, "Q") = "=IF(COUNT(D2:D" & j & ")=0," & """" & "," & "COUNTIF(D2:D" & j & "," & """>=81""" & "))"
End Sub

i haven't seen yet what is wrong!
Any help please!
no excel problem is unsolvable.

 

[AlphaFrog]

Sub Overall2Summary()
Dim j As Integer
j = 250

Sheets(2).Cells(5, "Q").Formula = "=IF(COUNT(D2:D" & j & ")=0,"""",COUNTIF(D2:D" & j & ","">=81""))"
End Sub

 

[thunder_anger]

Sheets(2).Cells(5, "Q"). {something Missing}

where is

.formula

or

.value

 

[Ruddles]

[COLOR=#0000ff]Sheets(2).Cells(5, "Q") = "=IF(COUNT(D2:D" & j & ")=0," & "[COLOR=red][B]""[/B][/COLOR]""" & "," & "COUNTIF(D2:D" & j & "," & """>=81""" & "))"[/COLOR]