Sub 未入力の場合_指定条件未達成_エラーストップする()

    If Range("A2") = "" Then 'A2が空白の場合、以下の処理に入る
    
        MsgBox "必須入力欄を入力してください" 'エラーメッセージ
        
        End '処理を終了する、End Subとは違い全終了
        
    End If

End Sub