excelのｉｆステートメントのテストで…

質問

御観覧ありがとうございます。
スパテクという本を買って、excelを勉強しようと、
サンプルを打ち込んでいて、何度かエラーになったりしましたが、
調べることや、入力ミスの確認で回避出来ていたのですが、
本通りに打っているのに、
「エラー４３８、オブジェクトは、このプロパティまたはメソッドをサポートしてません。」
と出ます。
エクセル２００７です。入力したプロシージャは、
Option Explicit

Dim nSample1_12 As Integer
Sub Sample1_12()
nSample1_12 = nSample1_12 + 1
ThisWorkbook.Worksheets("sheet1").Range("A1") = nSample1_12
End Sub

Sub Sample1_13()
Dim sA2 As String
sA2 = ThisWorkbook.Worksheets("sheet1").Range("A2")
If sA2 = "" Then
ThisWorkbook.Worksheets("sheet1").Renge("A2") = "Sample1_13"
ElseIf sA2 = "Sample1_13" Then
ThisWorkbook.Worksheets("sheet1").Range("A2") = "基本の文法 ifステートメント"
Else
ThisWorkbook.Worksheets("sheet1").Range("A2") = ""
End If
End Sub
このサンプル１３を実行すると、Ａ２にsample1_13と出るはずなそうなんですが…エラーになります。

回答No.1

marbin

単なる転記ミスでは？
>ThisWorkbook.Worksheets("sheet1").Renge("A2") = "Sample1_13"
↓
ThisWorkbook.Worksheets("sheet1").Range("A2") = "Sample1_13"

お礼

まさにその通りでした。
大変恥ずかしい限りです(笑)
ありがとうございました！！