ワークシートのセルに自身の Worksheet 名などを表示する関数

GetName.vba

' 標準モジュールに作成する

' 自ワークブック名を取得する
' 　使い方) =ThisWorkbookName()
Function ThisWorkbookName() As String
    Application.Volatile
    ThisWorkbookName = Application.ThisWorkbook.Name
End Function

' 自ワークシート名を取得する
' 　使い方) =ThisWorksheetName()
Function ThisWorksheetName() As String
    Application.Volatile
    ThisWorksheetName = Application.Caller.Worksheet.Name
End Function

' 指定のワークシート名を取得する
' 　使い方) =WorksheetName(1)
Function WorksheetName(index As Integer) As String
    Application.Volatile
    WorksheetName = Application.Sheets(index).Name
End Function