【VBA】ブックを複製する

Public Sub CopyBook( _
                            ByVal srcPath As String, _
                            ByVal dstPath As String)
    FileCopy srcPath, dstPath
End Sub