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

Sub test()

With Sheets("S")
 'Final 1
   FinalS1 = .Cells(Rows.Count, 1).End(xlUp).Row

  .Cells((FinalS1 + 1), 3).Value = .Name

 End With

End Sub

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

With ActiveWorkbook
For S = 1 To Sheets.Count Step 1
    If Sheets(S).Name = "Data Summary" Then
    GoTo nxt2:
    Else:
        With .Sheets(S)

May be then

Sub test()
 For S = 1 To Sheets.Count Step 1
    With Sheets(S)
         If Sheets(S).Name <> "Data Summary" Then
        
            FinalS1 = .Cells(Rows.Count, 1).End(xlUp).Row
        
           .Cells((FinalS1 + 1), 3).Value = .Name
          End If
    
     End With
     
   Next S

End Sub

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".

With ActiveWorkbook
For S = 1 To Sheets.Count Step 1
    If Sheets(S).Name = "Data Summary" Then
    GoTo nxt2:
    Else:
        With .Sheets(S)
Dim Dest3 As Range
Set Dest3 = wsS.Cells(Rows.Count,3).end(xlUp).Offset(1,0)
.Name.Copy Destination:= Dest3

        End With
    End If
nxt2:
Next
End With
End Sub

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!