Sub Macro1()

    Sheets.Add
    Sheets("05-03 VICTORIA CENTER").Select
    Cells.Select
    Selection.Copy
    Sheets("Sheet3").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "='ACTUALS 05-06'!R[4]C"
    Range("A2").Select

End Sub