Take tab name and add to worksheet for that tab

[xerxers]

I have a spreadsheet that has many Tabs. I have named each of the tabs with a unique name. I would now like to insert that tab Name into each worksheet in location A1 without having to retype the name each time.

TIA

 

[Fluff]

How about

Sub xerxers()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Range("A1").Value = Ws.name
   Next Ws
End Sub

 

[xerxers]

How about

Sub xerxers()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Range("A1").Value = Ws.name
   Next Ws
End Sub

Thank you for your response, much appreciated, now how do I actually get this to run in my spreadsheet, sorry...

 

[Fluff]

Paste it into a normal module & on then in excel press Alt F8, select the macro & click run

 

[xerxers]

I apologize for being so dumb but I presume a normal module is a worksheet or is it something else.
I have copied it into a worksheet, selected ALT F8 but the subroutine does not appear.

 

[Fluff]

Have a look here
https://www.ablebits.com/office-addins-blog/2013/12/06/add-run-vba-macro-excel/

 

[Fluff]

The other option is to put this formula in A1 of each sheet
=TRIM(RIGHT(SUBSTITUTE(CELL("filename"),"]",REPT(" ",100)),100))

 

[xerxers]

Once again thank you for your response, did a Google search and was able to get everything running just fine.

 

[Fluff]

You're welcome & thanks for the feedback