Planner

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