【Excel VBA】ifブロックに対応するend ifがありません

Question

概要

Excel VBAのIF文のコンパイルエラーについて質問します。

IF文を構文通り記述したつもりですが、コンパイルエラーが発生しました。
以下のソースコード内で文法エラーとなる箇所はありますか？

なお、私は初めてVBAを触っているため、VBA特有の文法についての知識が乏しいです。
（普段は主にC言語を使用しています）

実現したいこと

①エクセルシート内の横7マス×縦9マスの結合されたセルをダブルクリックすると、ファイルを開くダイアログが表示され、縦横比率を維持せずに結合されたセルの大きさに合わせて画像が挿入される。
②エクセルシート内の横11マス×縦14マスの結合されたセルをダブルクリックすると、ファイルを開くダイアログが表示され、縦横比率を維持したまま画像が挿入される。

発生したエラーメッセージ

該当のソースコード

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim myF As Variant
Cancel = True

If (Target.Columns.Count = 7 And Target.Rows.Count = 9) Then

    myF = Application.GetOpenFilename _
    ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
    If myF <> False Then

    With ActiveSheet.Shapes.AddPicture(Filename:=myF, LinkToFile:=False, _
    SaveWithDocument:=True, Left:=Target.Left, Top:=Target.Top, _
    Width:=-1, Height:=-1)

    '==================ここから===========================================
    .LockAspectRatio = False '縦横比率を維持しない
    .Width = Target.Width
    .Height = Target.Height
    '==================ここまで===========================================

    '===============中央へ調整
    .Top = Target.Top + Target.Height / 2 - .Height / 2
    .Left = Target.Left + Target.Width / 2 - .Width / 2

    End With

ElseIf (Target.Columns.Count = 11 And Target.Rows.Count = 14) Then

    myF = Application.GetOpenFilename _
    ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
    If myF <> False Then

    With ActiveSheet.Shapes.AddPicture(Filename:=myF, LinkToFile:=False, _
    SaveWithDocument:=True, Left:=Target.Left, Top:=Target.Top, _
    Width:=-1, Height:=-1)

    '===============中央へ調整
    .Top = Target.Top + Target.Height / 2 - .Height / 2
    .Left = Target.Left + Target.Width / 2 - .Width / 2

    End With

Else

    '===============何もしない

End If

End Sub

補足

参考にしたサイト：https://kenchik.info/2021/07/01/excel_autopic
使用ソフト：Office Home and Business 2019

Answer 1

• ９行目: If myF <> False Then
• 31行目: If myF <> False Then

Ifに対応するEnd Ifがありません。

インデントを入れると、今回のような構文エラーに気づきやすくなります。

VBAのインデントについて｜VBA技術解説

Comments

[kota1810]

夜分にも拘わらず、すぐに回答いただきありがとうございます。
無事解決しました。
また、参考URLまで付けていただき誠に恐れ入ります。