Afslut løkke

Hej,

Jeg mener ikke det er optimalt hva jeg har fået lavet her.
Det virker, men gennemløbstiden er alt for høj.

Private Function CalcRate(BghtCur, SoldCur)
    Sheets("Kurs").Select
    Data = Range("A1").CurrentRegion
   
    For y = 1 To UBound(Data, 1)
        If BghtCur = Data(y, 1) Then
            Bght = Data(y, 2)
        End If
    Next
   
    For y = 1 To UBound(Data, 1)
        If SoldCur = Data(y, 1) Then
            Sold = Data(y, 2)
        End If
    Next

    CalcRate = Sold / Bght

    Exit Function
End Function

Den vil jo selv efter den har fundet en valuta teste resterende mulig valuta igennem om det er lige med. Rigtig forstået ikke?