Excelのシート名称を計算に使う

使えると便利な場面が意外と多い関数。標準の関数一覧で見つけられなかったのでサクッと作った（もし標準関数の中の同等機能を知っている方が居たら教えて欲しい）。
文書のタイトルだったり、連番でリンク先をコントロールしたり。
シート名を数値の連番にし、シートによって元表のリンク先を変えて明細書を作るとか。

Public Function GetSheetName(R As Range) As Variant
    GetSheetName = R.Worksheet.Name
End Function

「=GetSheetName(A1)」のように使う。セルのA1はダミー。関数へセル情報を送るためのものなので、目的のシートの中であればどのセルでもよい。