'===========================================================
' Excel2Excel Macro                     By 1994/x/x  Ryn
'===========================================================
' 「マイドキュメント」フォルダに有る hogehoge.xls のシートの範囲名「複写元」から、
' 今開いているＥｘｃｅｌのシートの範囲名「複写先」へデータをコピーします。
'
Sub Excel2Excel()
    Sheets("複写先シート").Select
    ActiveWorkbook.Windows(1).Caption = "複写先の窓"
    Workbooks.Open FileName:="hogehoge.xls"
    ActiveWorkbook.Windows(1).Caption = "複写元の窓"
'
    Sheets("複写元シート").Select
    Range("複写元").Select
    Selection.Copy
'
    Windows("複写先の窓").Activate
    Range("複写先").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
'
    Windows("複写元の窓").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Close False
End Sub