Sub Listar_Nomes()
    Dim i As Integer
    Dim NumSheets As Integer

    NumSheets = Sheets.Count
    For i = 1 To NumSheets
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub