How can I copy the name of the worksheet tab to a cell in the worksheet?

macro,sheet,text

Run a macro that has this line:
ActiveCell.Value = ActiveSheet.Name
this is a very easy work in Excel Run a macro