Diplaying the Tab name of activesheet

Sub GetSheetName()

Dim Active_Sheet_Name As String


Active_Sheet_Name = ActiveSheet.Name


MsgBox Active_Sheet_Name

End Sub