Fill Relative Formula Into Range

Here is my array code



Dim Values() As String
Dim count As String
count = 9
For count = 9 To 1800
Values(count) = "=IF(AND(E" + count + "<>"""",AH" + count + "<>0),(AH" + count + "/E" + count + ")*100,0)"
count = count + 1
Next

I'd make it a static array but eventually I'm going to have to set it up where I wont know the upper bound.

Here is the other part of my code that I don't know what I'm doing.


If Range("A9") > 0.01 Then
Range("AI9:AI1800") = 0.01
Else
Range("AI9:AI1800") = Values
End If

I keep getting mismatch errors on the count variable, but I need it to be a string so I'm not sure what do here.