perfetto, ho aggiustato un poco e funziona! Grazie mille!

Ora però ho un altro problemone che mi hanno richiesto solo ora:
devo pescare non tutti i fogli, ma solo quelli corrispondenti all'anno di riferimento scelto.
La data di riferimento è contenuta in ogni foglio nell'intervallo di celle da j7 a j16 da cui io ovviamente devo pescare il MAX x ottenere la data maggiore di tutte. Quindi se mi riferisco al 2011 e in un foglio la data maggiore è ad es. 11/11/2011 lo devo pescare altrimenti no.
Come implemento il tutto? Ho già fatto l'inputbox e poi credo che devo fare un if per vedere se il max dell'intervallo delle celle di ogni foglio corrisponde al valore del inputbox. Ma come? grazie

codice:
SUB DISTINTA2 ' 
Doc = Thiscomponent 
Sheet = Doc.Sheets 
row = 13 
 distinta1 = Doc.sheets.getbyname("DISTINTA") 

sText = InputBox ("Anno di riferimento: ","Scelta anno di riferimento")
for each sheet in Doc.Sheets 
    if(sheet.name <> "DISTINTA" and sheet.name <> "SCHEDA SINTETICA DI PARTITA"  and sheet.name <> "RIPARTO FRUTTI") Then 
    'if max di j7-j16 =anno
    'datadiriferimento= max(
        valore =  sheet.getCellByPosition(1, 6).String ' numero partita
        VALORE2=  sheet.getCellByPosition(2, 6).value ' numero capi
           VALORE3=  sheet.getCellByPosition(5, 6).VALUE ' peso iniziale
           

           VALORE4=  sheet.getCellByPosition(8, 39).value
            VALORE5=  sheet.getCellByPosition(14, 17).value
        distinta1 = Doc.sheets.getbyname("DISTINTA") 
     
    
        distinta1.getCellByPosition(0, row).String = valore
        distinta1.getCellByPosition(1, row).VALUE = valore2 
        distinta1.getCellByPosition(3, row).VALUE =VALORE3
        
          distinta1.getCellByPosition(7, row).value =VALORE4
    distinta1.getCellByPosition(4, row).value =VALORE5
   
       
        row = row + 1 
    endif 
next sheet 
NomeFoglio=Sheet.name 
End SUB