Mam takie makro, które działa pod excelem ale niestety nie moge go pod OO uruchomić:
Kod: Zaznacz cały
Sub ZmianaNazArkuszy()
Dim arkusz As Object
nazwa = InputBox("Podaj podstawową nazwę Arkusza" _
& ": ", "Rename Sheet", ActiveSheet.name)
For Each arkusz In ActiveWorkbook.Sheets
spacja = " "
kolejny_scenariusz = kolejny_scenariusz + 1
arkusz.name = nazwa & spacja & kolejny_scenariusz
Next arkusz
End Sub