「Endifに対するIfブロックがありません」の原因がわかりません

投稿者 : ims     投稿日時 : 2021/06/29(Tue) 19:19:59     OS : 未指定     EXCEL : Excel 2016

---

下記コードで、質問タイトルのエラーがでます。
しかし、Ifはつけているので原因がわかりません…
何が原因と思われますでしょうか？

----------------------------------------
'該当の申込書を検索し、見つけたファイルをアクティブにする
For Each wb In Workbooks
If wb.Name Like "*A申込書*" Or wb.Name Like "*B申込書*" _
　　　　Or wb.Name Like "*C申込書*" Then wb.Activate
Exit For
End If
Next wb
----------------------------------------

投稿者 : ヘンリー     投稿日時 : 2021/06/29(Tue) 20:59:08

---

If文の使い方が間違えています。

If文の基本

If ○○=△△ Then
命令1
命令2
　　・
　　・
　　・
End If

ただし、Trueの時の命令が1つの時だけ、
以下のように省略して書くことができます。

If ○○=△△ Then 命令1

つまり、今回の場合、
＞If wb.Name Like "*A申込書*" Or wb.Name Like "*B申込書*" _
＞　　　　Or wb.Name Like "*C申込書*" Then wb.Activate
と書いてあるので、この行でIf文は完成しています。

にもかかわらず、End Ifを見つけているので、
上記のエラーが出るのです。

投稿者 : ims     投稿日時 : 2021/06/30(Wed) 11:24:41

---

■[返信 1] ヘンリーさん（2021-06-29 20:59:08）の記事
＞ つまり、今回の場合、
＞ ＞If wb.Name Like "*A申込書*" Or wb.Name Like "*B申込書*" _
＞ ＞　　　　Or wb.Name Like "*C申込書*" Then wb.Activate
＞ と書いてあるので、この行でIf文は完成しています。
＞
＞ にもかかわらず、End Ifを見つけているので、
＞ 上記のエラーが出るのです。

早々にありがとうございます。
解決できました！助かりました。