An Internet search turned up this expression for obtaining the name of the active sheet. =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255) It seems to work, but is there really nothing simpler and more straightforward?

Function SheetName(Optional cell As Range) As String If cell Is Nothing Then SheetName = Application.Caller.Worksheet.Name Else SheetName = cell.Worksheet.Name End If End Function

. If you want to display the sheet name automatically, you can paste this in the Sheet Level Module : Option Explicit Private Sub Worksheet_Activate() Range("A1").Value = ActiveSheet.Name End Sub Drawback to above is that the macro needs to be pasted into every sheet module. If you want the sheet name to appear when you click a command button, you can paste this into a regular module and connect the button to this macro : Sub whatName() Range("A1").Value = ActiveSheet.Name End Sub Drawback to the above is each sheet requires a command button. You can paste this into the ThisWorkbook Module : Option Explicit Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("A1").Value = ActiveSheet.Name End Sub Although this macro only requires one pasting into the ThisWorkbook Module the drawback to the above is your workbook will auto open to Sheet 1 and the sheet name will not display in Cell A1 until you select a different sheet and return to Sheet 1.

Name of active sheet

JenniferMurphy

Well-known Member

May 14, 2019

An Internet search turned up this expression for obtaining the name of the active sheet.

Code:

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)

It seems to work, but is there really nothing simpler and more straightforward?

Name of active sheet

JenniferMurphy

Well-known Member

Logit

Well-known Member

Excel Facts

Similar threads

Forum statistics

Share this page

Name of active sheet

JenniferMurphy

Well-known Member

Logit

Well-known Member

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock