VBA MACRO CODE FOR getting sheet names at once in multiple sheets

[Dharani]

Hello Everyone,

I would like to get the sheet name in the first column of all the sheets. (highlighted one...) automatically at once by one click.
please do the needful.
Please provide me some macro code for this...


I have attached the excel file where i did manually for your easy understanding and reference.


Thank you...

[Bob Phillips]

Public Sub Insertname()
Dim ws As Worksheet
Dim lastrow As Long

For Each ws In ThisWorkbook.Worksheets

lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
ws.Columns(1).Insert
ws.Range("A1").Resize(lastrow).Value = ws.Name
ws.Columns(1).AutoFit
Next ws
End Sub

[Dharani]

Public Sub Insertname()
Dim ws As Worksheet
Dim lastrow As Long

End Sub


Hello xld,
The code is awesome... really it works beautifully.... Thank you so much...
Thank you for spending your valuable time in helping me...
I have got a small doubt, now i am getting the tabs name, instead if i want to get my file name, like in which part of code i need to modify. is it possible??

Thank you...

Regards,
Dharani.

[Bob Phillips]

Change


ws.Range("A1").Resize(lastrow).Value = ws.Name

to


ws.Range("A1").Resize(lastrow).Value = ws.Parent.Name

[snb]

Sub M_snb()
Sheets(1).Cells(1) = ThisWorkbook.FullName
Sheets.FillAcrossSheets sheets(1).Cells(1)
End Sub

[Dharani]

Change


ws.Range("A1").Resize(lastrow).Value = ws.Name

to


ws.Range("A1").Resize(lastrow).Value = ws.Parent.Name

Thanks a lot xld... the code is awesome... thank you so much for spending your valuable time in helping me...

Regards,
Dharani.

[Jan Karel Pieterse]

FillAcrossSheets

That is what I love about forums, you learn new stuff every time!