＞冒頭にこちらを追加しましたが、最初からエラーになります。
Green さんは、モジュールシートの最初に
これを入れてないのですか？
　↓
Option Explicit

入れてあれば、
Workbook が「SubまたはFunctionが定義されていません」とか
THBKやThisBK が「変数が定義されていません」と出るハズなんですけど。

因みに、そこは「s」を補ってください。
＞Workbook("ファイル名.xlsm")
  Workbooks("ファイル名.xlsm")
         ↑

冒頭にこちらを追加しましたが、最初からエラーになります。
他のコードではエラーにはならないのですが。
他のエラーが出たり、さっきあったエラーが別の箇所で表示したり、
もう少し確認します。

Sub test()
    Dim ThisBook As Workbook
    Set THBK = Workbook("ファイル名.xlsm")
    'Set THBK = ThisWorkbook
    Set THWS = ThisBK.Sheet("Sheet1")

＞インデックスが有効範囲にありません
そんなシート名は無いと言う事でしょうね。

＞オブジェクト変数または　With　ブロック変数が設定されていません
＞Wb1.Sheets(Wsn1).Range("A1").Copy
あれ？　そんな文は質問に無かったような・・

全文が分からないと的確にアドバイスするのは難しいです。

＞エラーになります

何というエラーなんですか？
どこのステートメントで発生するのですか？

ありがとうございます。

半平太さん

　Wb1　に格納できていないような気がします。


MKさん

　やっぱり、String　が気になっています。


・似てるコードが他にもあって、そちらは問題ないのですが、本当に問題がないのかも気になっています。

もう少し試して戻ってきます。宜しくお願い致します。

Wb1とかに、ちゃんとブックが格納されていますか？

ファイルが３つあります
ThisWorkbook　　workbook1　　workbook2

ThisWorkbook　シート名「本の名前」のＡ列には　workbook1　のシート名が入っている
ThisWorkbook　シート名「本の名前」のＢ列には　workbook2　のシート名が入っている

Ａ列、Ｂ列のシート名を使って コピー＆ペースト　をしたい
エラーになります、このような書き方はしなしのでしょうか。
どの様に修正するのか教えてください。 　Windows10　Excel2019


    Dim Copy1, Copy2 As String
    Dim Paste1, Paste2 As String

    Copy1 = ThisWorkbook.Sheets("本の名前").Range("A2").Value
    Copy2 = ThisWorkbook.Sheets("本の名前").Range("A3").Value

    Paste1 = ThisWorkbook.Sheets("本の名前").Range("B2").Value
    Paste2 = ThisWorkbook.Sheets("本の名前").Range("B3").Value

    ' コピーとペースト操作を修正
    Wb1.Sheets(Copy1).Range("B3:D3").Copy
    Wb2.Sheets(Paste1).Range("E6:G6").PasteSpecial xlPasteValues

    Wb1.Sheets(Copy2).Range("B5:D5").Copy
    Wb2.Sheets(Paste2).Range("E6:G6").PasteSpecial xlPasteValues