Making two WITH statements into an Array

[Jim885]

Is there any way to turn these two WITH statements into an Array so that both cells are done together?

  With Range("F1")
    .FormulaR1C1 = "=""Used "" & Text(Now(), (""m/d/yy""))"
  End With
    With Range("G1")
    .FormulaR1C1 = "=""Received "" & Text(Now(), (""m/d/yy""))"
    End With

I've tried the below, but nothing happens.

Sub test2()
 With Array(Range("F1,G1").FormulaR1C1 = "=""Used "" & Text(Now(), (""m/d/yy""))", FormulaR1C1 = "=""Received "" & Text(Now(), (""m/d/yy""))")
 End With
End Sub

Thanks for any assistance.

 

[pgc01]

Hi

I would not write the formulas directly:

Range("F1").Formula = "=""Used "" & Text(Now(), (""m/d/yy""))"
Range("G1").Formula = "=""Received "" & Text(Now(), (""m/d/yy""))"

 

[Jim885]

Thank you. I'll take your advise.