エクセルマクロでアクティブセルの値を取得するのに。。これってどこが間違っているのでしょう

質問

シートは複数ありますアクティブになったシートのアクティブセルの値を取得してそれをシート名として使用したいのですが

Sub 単独シート追加()

Dim S_Name As String

Worksheets.Add after:=Worksheets(Worksheets.Count)

S_Name = ActiveCell.Value

ActiveSheet.neme = S_Name

End Sub

ローカルウィンドーで確認すると
S_Name は””のままで
「実行時エラー」の
オブジェクトはこのプロパティまたはメソッドをサポートしていません

と、なり正常に動作しません

どこが間違いなのでしょうか

回答No.1

agricap · ベストアンサー

（１）
「S_Name = ActiveCell.Value」を実行する時点では、すでに
新しく追加したシートがアクティヴになってしまっているので、
S_Nameは常に""(空文字列)になるものと思われます。
たとえば、「S_Name = ActiveCell.Value」を
「Dim S_Name As String」の次にもってきてはいかがでしょう？

（２）
「ActiveSheet.neme」ではなくて、「ActiveSheet.Name」ですね。
単純なスペルミスと思います。

お礼

ありがとうございました

構文が間違っているものと思いテキストを開いては
悩んでいたところなんです。

こんな単純な行の入れ替えで解決するなんて
まったく気がつきませんでした

スペルチェックまでして頂きありがとうございました
又これで悩んでいたことでしょう