セルA1で次のユーザー定義関数を呼び出して、リアルタイムにシート名を
　表示します。セルA1には、「=SheetName()」と入力します。
　　Volatileメソッドは、ユーザー定義関数を自動再計算関数にします。

Function SheetName() As String

    Application.Volatile
    SheetName = ActiveSheet.Name
    
End Function