Buongiorno a tutti. Questo è lo script in questione
Option Explicit
Sub Main
Dim IdEstr,Ini,Fin,r,rt
Dim K,x
Dim aNumFreq(90,2),aNum
rt = FI_
r = rt
Ini = EstrazioneFin - 18
Fin = EstrazioneFin
For IdEstr = Ini To Fin
'If IsUltimaDelMese(IdEstr) Then
K =...