[VBA] Makro w Excelu

Sub MakroTest()
    a = ActiveSheet.Range("A1").Value
    Range("A1").Select
    ActiveCell.FormulaR1C1 = a & "1"
End Sub

Witam.
jak widać z kodu po odplaeniu makra VB do komórki A1 zostaje wpisywana wartość 1, leczw aktywnym arkuszu, jak zmienić ten kod aby wartość była wpisywana do Arkusz2 gdy arkuszem aktywnym jest Arkusz1 ?
z góry dzięki i pozdrawiam

może tak?

Sub MakroTest()
    a = Arkusz2.Range("A1").Value
    Arkusz2.Range("A1").FormulaR1C1 = a & "1"
End Sub