VBA ブックのシートを指定して開きたい

Question

下記内容ですが、
Workbooks(book_number & ".xls").Activate
Sheets(sheetname).Select

この部分でワークブックを指定してシートを開いているつもりなのですが、ワークブックも開かれません。
一行下の　Debug.Print (sheetname)　には、シート名がきちんと表示されています。
どのようにしたらワークシートを開いてシートを指定できるでしょうか。

お手数おかけしますがご教授お願いいたします。

Sub 編集()
Dim counter As String
Dim wb As Object
Dim i As Long
Dim sheetname As String

Dim folder_number As String
Dim book_number As String

Application.ScreenUpdating = False

folder_number = ThisWorkbook.Sheets(1).Range("A2").Value
folder_number = Left(folder_number, 2)
book_number = ThisWorkbook.Sheets(1).Range("A2").Value
book_number = Left(book_number, 3)

If IsNumeric(book_number) = False Then '値が英数字で構成されていれば実行（パーツ案件以外）

Set wb = Workbooks.Open(Filename:="C:\Users\＊＊＊\OneDrive\デスクトップ\試し\" & folder_number & "\" & book_number & ".xls") 'ブックオープン
counter = wb.Worksheets.Count
    For i = 1 To counter
        sheetname = wb.Sheets(i).Name
        If sheetname = ThisWorkbook.Sheets(1).Range("A2").Value Then
        Workbooks(book_number & ".xls").Activate
        Sheets(sheetname).Select
        Debug.Print (sheetname)
        End If
    Next
            
Else    'パーツ案件の検索
book_number = Left(book_number, 2)
Set wb = Workbooks.Open(Filename:="C:\Users\＊＊＊\OneDrive\デスクトップ\試し\" & book_number & "\" & "部品.xls") 'ブックオープン
counter = wb.Worksheets.Count
    For i = 1 To counter
        sheetname = wb.Sheets(i).Name
        If sheetname = ThisWorkbook.Sheets(1).Range("A2").Value Then
        Debug.Print (sheetname)
        End If
    Next

End If
Application.ScreenUpdating = True
End Sub

Answer 1

マクロの登録を変更していないだけでした。
申し訳ございません。

Answer 2

とりあえず下記の修正をしてみてください。

Set wb = Workbooks.Open(Filename:="C:\Users\＊＊＊\OneDrive\デスクトップ\試し\" & folder_number & "\" & book_number & ".xls") 'ブックオープン
counter = wb.Worksheets.Count
    For i = 1 To counter
        sheetname = wb.Sheets(i).Name
        If sheetname = ThisWorkbook.Sheets(1).Range("A2").Value Then
-        Workbooks(book_number & ".xls").Activate
+        wb.Activate
-        Sheets(sheetname).Select
+        wb.Sheets(sheetname).Select
        Debug.Print (sheetname)
        End If
    Next

後は、ステップ実行でデバッグしてみてください。
デバッグ方法は下記などをご参考に。

VBAのステップインなどのデバッグメニューの使い方を初心者向けに丁寧に解説します