VBA ActiveCell.FormulaR1C1

[Pinaceous]

Hi All,

I'm curious if I can apply

 ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[31]C)"

over a range of select cells?

For example, can I apply this formula to paste onto

 Range("B38:F38").Select

as opposed to listing each cell individually, like

    Range("B38").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[31]C)"
    
    Range("C38").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[31]C)"
    
    Range("D38").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[31]C)"
    
    Range("E38").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[31]C)"
    
    Range("F38").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[31]C)"

Please let me know, because I've been experimenting around with it and not sure.

Thank you!
pinaceous

 

[johnnyL]

Try the following:

Range("B38:F38").Formula = "=SUM(R[1]C:R[31]C)"

 

[Pinaceous]

Thanks johnnyL!!

 

[johnnyL]

Your Welcome @Pinaceous!