Ok, isso é o básico, mas é válido, especialmente para quem está iniciando...
Sub SheetsWrap()
Dim iSheet as Long
Let Application.ScreenUpdating = False
For iSheet = 1 To ActiveWorkbook.WorkSheets.Count
Let WorkSheets(iSheet).cells(1,1) = "'" & WorkSheets(iSheet).name
Next iSheet
Let Application.ScreenUpdating = True
End Sub
André Luiz Bernardes
A&A® - Work smart, not hard.