REM ***** BASIC ***** Option Explicit Sub Agg_Anno() Dim oRange as Object REM oRange = ThisComponent.NamedRanges.GetByName("B1").ReferredCells oRange = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("B1") ThisComponent.LockControllers oRange.getcellbyposition(0, 0).Value = InputBox("Nuovo anno:", "Nuovo anno") ThisComponent.CalculateAll() ThisComponent.UnlockControllers End Sub
Inserisco il testo della macro Planner - ThisWorkbook ; Le macro - ThisWorkbook