excel - Excel VBA を使用してワークシート名を取得する

Question

現在のワークシートを返すことができるuser-defined関数を作成したいと思います。Excel私は使用することができます

sheetname = ActiveSheet.Name

しかし、これの問題は、それが機能し、突然別のシート名を取得し始めることです。たとえば、代わりに をSHEET I LOVE YOU返しますSHEET I HATE YOU。

とにかくこれを修正する方法はありますか?それとも静的ではなく変化すると思うので可能でしょうか?

Answer 1

以下のコードを使用して、アクティブ シート名を取得し、好みの名前に変更できます。

Sub ChangeSheetName()

Dim shName As String
Dim currentName As String
currentName = ActiveSheet.Name
shName = InputBox("What name you want to give for your sheet")
ThisWorkbook.Sheets(currentName).Name = shName

End Sub