End Ifは不要な場合もある？

質問

Excel2010使用で下記のVBAのコードを書きました。
Sub イフとエンドイフは組ではなかったのか()
　Dim Flag As Boolean
　Dim S As Worksheet
　　For Each S In Worksheets
　　　If S.Name = "合計" Then Flag = True
' 　　Else
' 　　　Flag = False
' 　　End If
　　Next S

　　If Flag = True Then
　　　MsgBox "「合計」というシートはすでに存在します"
　　Else
　　　Worksheets(1).Copy after:=Worksheets(Worksheets.Count)
　　　ActiveSheet.Name = "合計"
　　End If
End Sub

前半の
>' Else
>' Flag = False
>' End If
の部分があると「Elseに対応するIfがありません」というエラーが出ます。
Elseに関する記述だけをコメントアウトすると「End Ifに対応するIfブロックがありません」というエラーが出ます。
この部分をコメントアウトすればきちんと動作するのですが、If文はちゃんと存在しているにもかかわらず、またほとんど同じ記述の後半ではエラーが出ないというのに、なぜこのようなエラーが出るのかわかりません。
なにか勘違いをしているのでしょうか。

回答No.2

FEX2053 · ベストアンサー

VBAでは、ifから始まる文を１行で書くと、if～thenの一つの命令と
解釈されます。すなわち

If S.Name = "合計" Then Flag = True

これで一つの命令になってしまい、次の行以降はif～endifのブロック
とはみなされないんです。ブロックにしたい場合は、必ず「then」の後ろ
を空欄にしないといけません。すなわち

If S.Name = "合計" Then
Flag = True
else
：
：
と書く必要がある・・・ということです。

お礼

なるほど納得です。
前半と後半でThen以降の記述のしかたが違っていたことに気づきませんでした。
For Each S In Worksheets
If S.Name = "合計" Then
flag = True
Else
flag = False
End If
できちんと狙い通りに動作しました。

For Each S In Worksheets
If S.Name = "合計" Then
flag = True
' Else
' flag = False
' End If
では逆にエラーが発生することを確認しました。

回答No.1

山田 太郎（@f_a_007）

×　　　If S.Name = "合計" Then　Flag = True
O　　　If S.Name = "合計" Then
　　　　　　Flag = True

お礼

ありがとうございます。
おっしゃる記述できちんと動作しました。
Thenのあとにそのまま記述を続ける場合と改行後に記述する場合とで扱いが違うのですね。