VBAにおけるエラーの原因が不明

Question

前提・実現したいこと

VBAを用いて，ボタンを押したら，エクセル内のデータを取得し，それを元に簡単な計算を行い，データに対する判定を出力するプログラムを作りたい．

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

コンパイルエラー
変数が定義されていません

該当のソースコード

VBA

Option Explicit

Public Sub 気体の爆発()

'変数の宣言
Dim V As Single
Dim n As Single
Dim t As Single
Dim Temp As Single
Dim High As Single
Dim Low As Single
Dim C As Single
Dim N0 As Single
Dim N1 As Single

'定数の宣言
Const R As Single = 8.314
Const P0 As Single = 101300

'セルからの値の取得
V = ActiveSheet.Range("G3").Value
Temp = ActiveSheet.Range("G4").Value
n = ActiveSheet.Range("G5").Value
t = ActiveSheet.Range("G6").Value

'単位の換算
t = t + 273.15

'0で除算の回避
If V <= 0 Then
MsgBox "Vが０以下です．訂正しなさい．"
Exit Sub
End If

'漏洩前の室内空気の物質量を計算
N0 = (P0 * V) / (R * Temp)

'漏洩後の室内ガス濃度を計算
N1 = n * t
C = N1 / (N0 + N1)

'室内ガス濃度の表示
ActiveSheet.Range("G8").Value = C

'爆発限界の下限界と上限界の取得
ActiveCell.Select
If Selection.Column = 2 And Selecton.Row >= 4 And Selection <> "" Then
Low = Selection.Offset(0, 1).Value
High = Selection.Offset(0, 2).Value
Else
MsgBox "選択ガス名が不適です"
Exit Sub
End If

'爆発限界との比較
If C >= Low And C <= High Then
MsgBox "爆発します！"
Exit Sub
Else
MsgBox "爆発しません "
Exit Sub
End If

End Sub

補足情報（FW/ツールのバージョンなど）

「変数の宣言を強制」の設定にしておりますが，これは変更することができません．
何卒，よろしくお願いいたします．

Answer 1

If Selection.Column = 2 And Selecton.Row >= 4 And Selection <> "" Then

ここが
Selecton.Row >= 4
と誤字なのが原因ですね

Answer 2

If Selection.Column = 2 And Selecton.Row >= 4 And Selection <> "" Then

Typoです。