请教高手，任意单元格或A列任意单元格怎么表示？

bfwz

下面是的宏。其中，Range("A2")需要换成A列任意单元格或任意单元格，请问怎么表示？

Sub Macro1()
'
' Macro1 Macro
' 宏由 MC SYSTEM 录制，时间: 2008-7-24
'
    If Range("A2") = 1 Then Range("A3").Select: ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
   
End Sub

liwen

Sub test()
For i = 1 To 10
a = "A" & i
Range(a).Formula = i
Next
End Sub

bfwz

谢谢版主