List Sheet tabs

Sub ListSheettabs()
Dim ws, XX()
WC = ThisWorkbook.Sheets.Count
ReDim XX(WC, 1)
idx = 0
For Each ws In ThisWorkbook.Sheets
XX(idx, 1) = ws.Name
idx = idx + 1

Next ws
With ThisWorkbook.Sheets("CurrentDB")
.Activate
.Range("J5").Resize(WC, 2) = XX

End With