rinominare tutti i fogli di un foglio calc con il valore della cella b2

[annir]

Buonasera,
avrei bisogno di una macro per rinominare tutti i fogli di un file.ods con il valore della cella b2 (che valorizzo da i dati di un altro foglio esterno). ho trovato questa macro excel

Sub RenameSheet()
Dim rs As Worksheet
For Each rs In Sheets
rs.Name = rs.Range("B2")
Next rs
End Sub

ma non riesco a convertirla per farla funzionare in libreoffice.
Qualcuno può aiutarmi ?

[schiavinatto]

Se lo utilizzerai solo sulla tua macchina, installa le macro in Le mie macro e crea una scorciatoia da tastiera per l’attivazione.

REM  *****  BASIC  *****

' Attribute VBA_ModuleType=VBADocumentModule	
Option VBASupport 1	
Option Explicit	

Sub RenameSheet()
Dim rs As Worksheet
For Each rs In Sheets
rs.Name = rs.Range("B2")
Next rs
End Sub