VBA GetOpenfilenameで開いたファイルを変数に格納したい

Question

Aブックのシート名：社員マスター、その他シート（複数）で構成
Bブックのシート名：社員マスター

Aブックの名前がいつも違うので、ファイルを選んで選択する方法にしています。
Bブック名とシート名は固定です。

やりたいこと
１．Bファイルは自分で開いてVBAを実行
２．GetOpenfilenameでAファイルを開く
３．開いたAファイルを変数に格納する（Set wb=...）
４．Aファイルの社員マスターシートA1:G1000を
Bファイルの社員マスターシートへ値の貼付けをする
５．Aファイルは上書き保存しないで閉じる（今のところ自分で閉じている）

3のところで実行時エラー424（オブジェクトが必要です）が出ます。
セットができていないので、次にすすめません。

Sub 社員マスタを読み込んで貼り付ける()

   Dim FileName As Variant
   
    FileName = Application.GetOpenFilename(FileFilter:="Excelファイル,*.xls*")
    
    If FileName = False Then
        Exit Sub
    
    End If
    
    Workbooks.Open FileName
    
    Dim wb As Workbook
    Set wb = Activebook
        
    'wbに開いたファイル名をセットできてない。
    
     
        wb.Worksheets("社員マスター").Range("A1:G1000").Copy
    
        Workbooks("B").Worksheets("社員マスター").Range("A1").PasteSpecial _
                                                                 Paste:=xlPasteValues

        
End Sub

自力で解決が難しく、どうぞよろしくお願いいたします。

Answer 1

Set wb = Activebook
ではなく
Set wb = ActiveWorkbook
ですね。
ブックを開くのもまとめて
Set wb = Workbooks.Open(FileName)
とするのもいい気がします。

Comments

[mari_0418]

早速のお返事ありがとうございます。書き換えましたら無事にエラー解除して
次に進めました！大変助かりました。ありがとうございます。