Bookを指定して開くマクロについて

質問

私は、今行の移動マクロを作成しています。
(1)対象のエクセルには1月から12月までのシートが存在する
(2)移動はシート間の移動
(3)移動ボタンを押すとユーザフォームを表示
(4)ユーザフォームで移動月(シート)と移動する行を記入
(5)移動先シートの最終行にコピー

このマクロを別のBookにコピー可能なようにしたいのですが、その方法が分かりません。
今考えている方法としては、
(1)ユーザフォームに「別の月」というボタンを作る
(2)別の月をクリックするとファイル選択画面を出す
(3)移動したいBookを選択する
(4)開いたBookの名前を取得し、そのBookに移動する

(2)～(4)をどうやったら良いのかさっぱり分からない状況です。
ネットで調べても、最初からBook名が分かっている場合しか出てきません。
どうかご教授お願致します。

☆下記のようなマクロを書いてます。☆
'移動先にオートフィルターがかかっていたら外す
If Worksheets(tuki).AutoFilterMode = True Then
Worksheets(tuki).AutoFilterMode = False
End If

'移動先の行番号取得
If Worksheets(tuki).Range("B7").Offset(1).Value = "" Then
idousaki = Worksheets(tuki).Range("B7").Offset(1).Row
Else
idousaki = Worksheets(tuki).Range("B7").End(xlDown).Offset(1).Row
End If

'移動行の情報取得
Dim r As Integer
r = TextBox1.Value

'コピー
ActiveSheet.Range("A" & r & ":AB" & r).Copy Destination:=Worksheets(tuki).Range("A" & idousaki & ":AB" & idousaki)

回答No.2

hana-hana3 · ベストアンサー

＞ファイル選択画面を出す

GetOpenFilename
http://www.moug.net/tech/exvba/0060013.htm
http://officetanaka.net/excel/vba/file/file02.htm

回答No.1

n-jun

名前を指定してブックを開く
http://www.officetanaka.net/excel/vba/file/file02.htm

ご参考になるかと。