[Risolto] Macro per inserire fogli vuoti in calc

[Mistupisci]

Ciao a tutti, avrei bisogno di creare una macro che mi iserisca dei fogli vuoti in un documento calc, o meglio
io ho il Foglio1 e ne dovrei aggiungere altri 10.
Ho provato a registrarla ma non non sortisce nessun effetto.
Grazie.
Ciao a tutti.

[patel]

Codice: Seleziona tutto

Sub InsertSheets
oDoc =thiscomponent
oSheets = oDoc.Sheets
for i = 2 to 11
   shname = "Foglio" & i
   oSheets.insertNewByName(shname, i)
next
End Sub

[Mistupisci]

Gentilisdimo come sempre! !!