Macro to Create Worksheet 'xxxx' and list All Worksheets in Workbook

One way:

Public Sub Sheet_Index()
Dim ws As Worksheet
Application.DisplayAlerts = False
On Error Resume Next
Sheets("xxxx").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "xxxx"
Cells(1, "A") = "Sheet(s)"
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> ActiveSheet.Name Then Cells(Rows.Count, "A").End(xlUp).Offset(1) = ws.Name
Next ws
End Sub

Next time If you're satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save