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
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXo_aPt3bVmr9mn7XOxpYySVMOTDaP_34xiq93Ucs_kG8vRUWoaGMyDFVmUX7yeqZfFoYomXU44wcUPZdU_wp8E41gW-uYv-UsPgo4Hb9rELA5e4oWqNtwUGkns01w35WvJwOaxobXUuO8/s320/VBA_Andre_Luiz_Bernardes-780899.jpg)