VBA case分の中にwith構文を書けない

Question

        Select Case Target.Value
            Case 1
                With Me.Range("B8,B7")
                    .Interior.Color = RGB(255, 255, 0)
        End Select

プルダウンで1が選択されると黄色にハッチングされるプログラムを作成しました。
しかしながら、「vba select caseに対応するcaseがありません」という
エラーが出力されて実行されません。

withの部分を消すとエラーは出ません。
case分の中にwith構文を記載する方法をご教示願います。

Answer 1

3行目のWith文が終わる(「End With」文)前に5行目の「End Select」文が現れているのがエラーの原因です。
5行目が1行目に対応している文のつもりならば、その前にWith文を終了させる必要があります。

Comments

[pokemonta]

目からうろこでした。End Withを初めて知りました。

Answer 2

End Withが無いからでしょう。

Comments

[pokemonta]

おっしゃる通りです。

Answer 3

構文に対するエラーであればその構文を調べることが原則です。
VBA With 文
この手の構文を解説しているサイトはブックマークしておいてください。
起きている問題によりますが、今回のような問題であれば、聞く前にサイトで確認すれば質問せずとも解決するものです。

Comments

[pokemonta]

このようなサイトがあるんですね。
エラー内容で検索していました。すみません

[m.ts10806]

VBAに限らず
「言語名　機能名」で検索するとドキュメントやマニュアルがでてきます。
機能仕様を知らずには組めませんから。
（なので「どこかの誰かが何かを実現するために書いた他人のコードを何も理解せずそのままコピペ」は絶対にやめてほしい）