Copy name of the Sheet into a Cell

Hello All,

I was wondering how I can copy the name of a sheet onto a cell on another sheet. The syntax is like this....
With .Sheets(S)
'Final 1
FinalS1 = wsS.Cells(Rows.Count, 1).End(xlUp).Row

wsS.Cells((FinalS1 + 1), 3).Value = "NEED THE NAME of .Sheets(S) here"

End With

Please help and thank you in advance!!
Alexis

Wow that was really easy. But I actually need the name of the sheet that was given before not just the Sheet #. Can you help?

Thanks!

I think most of the lines are wrong.
May be

Please Login or Register  to view this content.

Hmmm I actually dont think I defined S :/
Its.....

Please Login or Register  to view this content.

May be then

Please Login or Register  to view this content.

I tried .Name and it didnt work. This is actually the code I am working with now - because I found that it was overwriting previously copied data with that other method. If there is a better method please let me know. I am basically trying to fill in the sheet wsS with the sheet "names".

Please Login or Register  to view this content.

Thank you!
Alexis

This is how you read my code:
exclude the sheet name summary from the loop, but for other sheets on the book, loop through and copy each sheet name in to next empty row of column C. Now, tell me what do you want to do and will adjust my code.

Thanks so much both of you! Thats perfect!