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 StringDim OSheet As ObjectDim lCount As Long
Redim StrSheets(Sheets.Count - 1)
For Each OSheet In SheetsLet StrSheets(lCount) = OSheet.NameLet lCount = lCount + 1Next 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
Nenhum comentário:
Postar um comentário