Try pasting this into your workbook module, which will do the trick for all sheets in the workbook. Right click on the Excel workbook icon to the left of the File menu, near the upper left corner of the screen, then left click on View Code, and paste this in:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[A1] = ActiveSheet.Name
End Sub
Or, if you only want certain sheets that you decide shall have the sheet name displayed, use this code instead, by right clicking on the specific sheet tab(s), left clicking on View Code, and pasting this in:
Private Sub Worksheet_Activate()
[A1] = ActiveSheet.Name
End Sub
Tom Urtis