Excel Macro For Worksheets

Is there an Excel(97/2000) formula that will place the Worksheet name (from the tab) into a cell automatically?

The macro below performs this, but you have to run the macro after each name change.

I was looking at whenever the worksheet name is changed or a worksheet copied, the cell’s information changed automatically.

Sub pubPopulateName()
ActiveCell.Value = ActiveSheet.Name
End Sub