Excel VBA 別のモジュールにcallで移動しても以外のプログラムが有効にするにはどうしたらい

Excel VBA
別のモジュールにcallで移動しても以外のプログラムが有効にするにはどうしたらいいですか？

モジュール移動するとブックの移動が出来なくなったので出来るようにしたいです。
よろしくお願いします。

不明点あれば補足致します。

Dim f1 As string,f2 As string
Dim ツール As Worksheet
Dim wb1 as workbook,wb2 As workbook

Set ツール = Activesheet

f1 = ツール.Range("D7")&ツール.Range("E7")
Set wb1 = Workbooks.Open (Filename:f1,Password:="1234")
f2 = ツール.Range("D11")&ツール.Range("E10")
Set wb2 = Workbooks.Open (Filename:f2,Password:="5678")

※D7は,C:\aaa\bbb\
D11はC:\aaa\ccc\
E7はqqq.xls
E10はwww.xls
補足
wb1.Activate
wb2.Activate

No.1 ベストアンサー 回答者： mabuterol 回答日時： 2018/08/29 14:20

そのモジュールの sub 関数の引数として、wb1, wb2 を渡してあげます。

sub test(wb1 as workbook, wb2 as workbook)
end sub

この回答へのお礼

ありがとうございました！

お礼日時：2018/08/29 18:12