Copy name of the Sheet into a Cell

[NewToVBA_23]

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