Copy a formula to specific number of cells to the right

[akabraha]

Hello,

I am trying to copy a formula to say 12 cells to the right of active cell - I tried to use the following code, but it's copying the formula to entire cells to the right.

Question is how to modify the code to copy the formula to only specific number (that I know) of cells to the right.

ActiveCell.FormulaR1C1 = "=R[-4]C"
Range(Selection, Selection.End(xlToRight)).Select
Selection.FillRight

Appreciate your help in advance.

Thanks, DoubleA

[Ikaabod]

This should work. Just change the "12" to whatever number you want to copy over to.

  Dim myNumber As Integer
  myNumber = 12 'This is the number of cells to copy to the right
  ActiveCell.FormulaR1C1 = "=R[-4]C"
  Range(ActiveCell.Address, ActiveCell.Offset(0, myNumber)).Select
  Selection.FillRight

If you wanted could do something like this:

myNumber = InputBox("How many cells to the right?")

or link myNumber to a cell value somewhere in your spreadsheet

myNumber = range("A2").value

[akabraha]

Thanks a lot, this is exactly what I wanted..