VBA Excel - Listando todas as worksheets existentes na planilha.

Em muitas ocasiões, pelos mais diversos motivos, precisamos saber os nomes de todas as worksheets disponíveis em nossas planilhas.

Function ListSheets()
    ' Author:                     Date:               Contact:                 URL:
    ' André Bernardes             08/08/2010 08:33    bernardess@gmail.com     http://al-bernardes.sites.uol.com.br/
    ' Lista todas as planilhas existentes no Workbook.

    Dim ws As Worksheet
    Dim x As Integer
    Dim nSheet As String

    Let Application.ScreenUpdating = False
    Let Application.DisplayAlerts = False
    Let Application.EnableEvents = False

    Let nSheet = "Analyse"            ' Worksheet que receberá a lista com os nomes.
    Let x = 3

    Sheets(nSheet).Select
    Sheets(nSheet).Range("C:C").Clear

    For Each ws In Worksheets
        Let Sheets(nSheet).Cells(x, 3) = ws.Name
        Let x = x + 1
    Next ws

    Let Application.ScreenUpdating = True
    Let Application.DisplayAlerts = True
    Let Application.EnableEvents = True
End Function


André Luiz Bernardes
A&A® - Work smart, not hard.

bernardess@gmail.com

| Blog Office VBA   |  Blog Excel | Blog Access    |