Q:

Excel 2010 VBA cell math

I'm looking to assign either a value to a range that would essentially be equivalent to me typing
"=A1*2"
in cell B1 in the main sheet window and then dragging that function down 10 times (so B2=A2*2
B3=A3*2
,...,
Bn=An*2
With ThisWorkbook.Worksheets(sheetname)
  Dim temp As Range, temp2 As Range
  Set temp = Range(Cells(1, 1), Cells(10, 1))
  Set temp2 = Range(Cells(1, 2), Cells(10, 2))
  temp2.Value = temp.Value * 2
End With

An error is thrown when I try to assign the value to the temp variable.  I have a suspicion that my method is invalid, but I can't seem to fix it.
Thanks!

A:

In one line just
ThisWorkbook.Worksheets(sheetname).Range("B1:B10").FormulaR1C1 = "=RC[-1]*2"

