vba insert formula in cell error

[gint32]

Hi Everyone,

I am having issues when I attempt to add a formula to a worksheet cell via VBA, firstly even if I use a variable.string it still falls over, the code I have an issue with is as follows

when I check the cell I get

 =COUNTA('D3':'D300')"

instead of getting

=COUNTA(D3:D300)"

 Dim Counter_Insert As String
Counter_Insert = "=COUNTA(D3:D300)"
'
   ''' ActiveWorkbook.Save
    Range("D2").Select
    ActiveCell.FormulaR1C1 = Counter_Insert

 

[MARK858]

Your string isn't in R1C1, try...

 Dim Counter_Insert As String
Counter_Insert = "=COUNTA(D3:D300)"
'
   ''' ActiveWorkbook.Save
    Range("D2").[COLOR="#FF0000"]Formula[/COLOR] = Counter_Insert