Views

Histats

Vitrine

VBA Excel - Listando todas as Abas disponíveis - List Of Available Tabs In Vba



Talvez precise preencher uma matriz com o nome de todas as abas de uma planilha, ou um listbox que será a base do menu, ou mesmo ordenar as sheets. Sim, é básico, mas útil.

Como listar o nome de todas as abas (worksheets) de uma planilha (workbook), na aba atual (sheet):

Sub ListAllSheet() 
    Dim StrSheets() As String 
    Dim OSheet As Object 
    Dim lCount As Long 
   
    Redim StrSheets(Sheets.Count - 1) 
   
    For Each OSheet In Sheets 
        Let StrSheets(lCount) = OSheet.Name 
        Let lCount = lCount + 1 
    Next OSheet 
   
    For lCount = LBound(StrSheets) To UBound(StrSheets) 
       Let Cells(lCount + 1, 1) = StrSheets(lCount) 
    Next lCount 
   
End Sub 

Tags: Sheet, VBA, Excel, worksheet, workbook



✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias