Sim, ter a capacidade de passar por todas as planilhas do Workbook é simples, mas necessário.
Talvez precise proteger, configurar, encriptar, estabelecer privilégios ou mesmo atualizar tabelas em todas as Sheets. Essa SUB lhe permitirá isso:
Sub SheetsWrap()Dim iSheet as LongLet Application.ScreenUpdating = FalseFor iSheet = 1 To ActiveWorkbook.WorkSheets.CountLet WorkSheets(iSheet).cells(1,1) = "'" & WorkSheets(iSheet).nameNext iSheetLet Application.ScreenUpdating = TrueEnd Sub
Reference:
Inspiration:
Tags: VBA, Excel, loop, laço, wrap, sheet, sheets, ws

Nenhum comentário:
Postar um comentário