VBA funzione MID con ciclo do while

[cheta]

Function estrai()
Dim i As Integer
Dim anno As Integer
i = 1
Do While Sheets(sx2009).Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then
anno = Val(Mid(Cells(i, 1), 8, 2))
Exit Do
End If
i = i + 1
Loop
End Function


ho fatto questo ma non worka

[renygade]

Function estrai()
Dim i As Integer
Dim anno As Integer
i = 1
Do While Sheets(sx2009).Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then
anno = Val(Mid(Cells(i, 1), 8, 2))
Exit Do
End If
i = i + 1
Loop
End Function


ho fatto questo ma non worka

Che non "worka" non vuol dire niente.. in cosa non funziona?
Devi dirgli dove mettere il valore estratto.. no?
Prova così:

Dim i As Integer
Dim anno As Integer
i = 1
Do While Sheets(sx2009).Cells(i, 1) <> ""
If Mid(Cells(i, 1), 1, 2) = "07" Then
    anno = Val(Mid(Cells(i, 1), 8, 2))
'Exit Do <-----?????
Sheets(sx2009).Cells(i, COLONNA_CHE_TI_PARE).value = anno
End If
i = i + 1
Loop
End Function