Hernoem naam blad naar inhoud van een cel
Geplaatst: zo feb 12, 2017 7:47 pm
Hernoem het huidige blad in uw werkblad met als naam de inhoud van cel E1 op uw huidige werkblad:
Code: Selecteer alles
sub hernoem_huidig_blad()
Dim oDoc, oSheet, oCell
oDoc = ThisComponent
oSheet = oDoc.getCurrentController.getActiveSheet
oCell = oSheet.getCellByPosition(4,0) 'cell E1
oSheet.Name = oCell.String
End Sub