VB宏基本案例(7)

Sub copyTotmpMenu()
    Sheets("all").Select
    Columns("A:A").Select
    Selection.Copy
    Sheets("menuCode").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Sheets("tmpmenu").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Range("B20").Select
    Sheets("all").Select
    Application.CutCopyMode = False
    Sheets("ﾋｵﾃ・).Select
End Sub