Excel VBAでIF文の中にfor文を記載するとエラーになります

Question

前提・実現したいこと

Excel VBAで、変数の内容によってfor文の行番号を変えたく、
下記コードを作成しましたが、エラーが出てしまいます。
このエラーが出たときの対処法を調べてみましたが、
「Elseの直前にEnd If」「If文を１行で書いている」の原因となっており
今回の内容の対処法が見つかりませんでした。

実現するにはどのように記載すればよいでしょうか？

発生している問題・エラーメッセージ

コンパイルエラー：Elseに対応するIfがありません。

該当のソースコード

If ji_pc = "4g" Then
　　　　For p = 4 To 9 
ElseIf ji_pc = "5g" Then
       For p = 31 To 34
Else
       MsgBox "プロジェクトを選択してください"
End If
　　　　～処理～
　　　　Next

Comments

[meg_]

そういう書き方は文法上出来ないかと。jinojiさんの回答の方法で良いかと思います。

Answer 1

こんな感じでどうでしょうか。

    Dim st, en
    If ji_pc = "4g" Then
        st = 4
        en = 9
    ElseIf ji_pc = "5g" Then
        st = 31
        en = 34
    Else
           MsgBox "プロジェクトを選択してください"
           Exit Sub
    End If
    
    For p = st To en
        '　　　　～処理～
    Next

Comments

[aoi7MRyo]

ご回答ありがとうございます！返信が遅くなり申し訳ありません。
こちらの記載方法で動かすことができました。大変助かりました！

Answer 2

If ji_pc = "4g" Then

　　　　For p = 4 To 9
ElseIf ji_pc = "5g" Then

for文の実行部がありません
というか、for文で、以降のelseifを実行しようとして、提示のエラーになってます

Comments

[aoi7MRyo]

ご回答ありがとうございます！返信が遅くなり申し訳ありません。
構文的に誤っているのですね。勉強になりました！