計算がしたいです・・・

Question

y1に結果を表示したいのですが「実行時エラー'g':インデックスが有効範囲にありません。」とエラーが出ました。エラー文について調べても解決できなかったので、どうすれば解決できるのか質問させていただきました。

Sub keisan()
Dim x1 As Variant
Dim x2 As Variant
Dim y1 As Variant

x1 = Sheets("sheet1").Range("B4").Value'デバック時にここに黄色い→が表示されました。
x2 = Sheets("sheet1").Range("D4").Value
y1 = x1 + x2
Sheets("sheet1").Range("E4").Value = y1
MsgBox y1

x1 = Sheets("sheet1").Range("B5").Value
x2 = Sheets("sheet1").Range("D5").Value
y1 = x1 - x2
Sheets("sheet1").Range("E5").Value = y1
MsgBox y1

x1 = Sheets("sheet1").Range("B6").Value
x2 = Sheets("sheet1").Range("D6").Value
y1 = x1 * x2
Sheets("sheet1").Range("E6").Value = y1
MsgBox y1

x1 = Sheets("sheet1").Range("B7").Value
x2 = Sheets("sheet1").Range("D7").Value
y1 = x1 / x2
Sheets("sheet1").Range("E7").Value = y1
MsgBox y1

x1 = Sheets("sheet1").Range("B8").Value
x2 = Sheets("sheet1").Range("D8").Value
y1 = x1 Mod x2
Sheets("sheet1").Range("E8").Value = y1
MsgBox y1

x1 = Sheets("sheet1").Range("B9").Value
x2 = Sheets("sheet1").Range("D9").Value
y1 = x1 + x2
Sheets("sheet1").Range("E9").Value = y1
MsgBox y1

End Sub

Answer 1

こちらで、提示されたマクロを実行してみましたが、エラーは発生しませんでした。
シート名が"sheet1"というシートはありますか。

Comments

[kitagawas]

シート名を変更した所、エラーは発生しませんでした！回答ありがとうございました！