アクティブシート名をセルに入力する

---

アクティブシート名をセルに入力する

アクティブシートのシート名をA1のセルに入力するには次の様にします。

Sub Sample59()
Range("A1").Value = ActiveSheet.Name
End Sub

エクセルＶＢＡテクニック集トップ

---