Zadanie trywialne ale można się zafiksować na pętlę For Each, która w tym wypadku nie zadziała, gdyż mamy tu 2 typy obiektów: Worksheet i Chart
W związku z tym trzeba użyć tradycyjnej pętli z indeksem arkusza

Sub ListujArkuszeOrazWykresy()
    Dim NrArk As Long
    For NrArk = 1 To ThisWorkbook.Sheets.Count
        Debug.Print ThisWorkbook.Sheets(NrArk).name
    Next
End Sub