Få ut lägstavärdet ur flera bladflikar Excel VBA

    If myLeverantor = "Bravis" Then                                         'Bravis
                wbBtoES = myLeverantor & " BTO.xlsx"
        
            Set shBraES = Workbooks("Bravis BTO.xlsx").Sheets("ES")         'Bravis.xlsx Blad ES
            Set shBraST = Workbooks("Bravis BTO.xlsx").Sheets("ST")         'Bravis.xlsx Blad ST
            Set shBraSO = Workbooks("Bravis BTO.xlsx").Sheets("SO Aut")     'Bravis.xlsx Blad SO Aut
    
        'söker i ES bladet
                Set C = shBraES.Range("A:B").Find(what:=X, LookIn:=xlValues, LookAt:= _
                xlWhole, MatchCase:=True)
                On Error Resume Next
                rnBtoES = C.Offset(0, 4).Value                              'gå till BTO-pris (E-kolumnen)

        'söker i ST bladet
                Set C = shBraST.Range("A:B").Find(what:=X, LookIn:=xlValues, LookAt:= _
                xlWhole, MatchCase:=True)
                On Error Resume Next
                rnBtoST = C.Offset(0, 4).Value                              'gå till BTO-pris (E-kolumnen)
    
        'söker i SO bladet
                Set C = shBraSO.Range("A:B").Find(what:=X, LookIn:=xlValues, LookAt:= _
                xlWhole, MatchCase:=True)
                On Error Resume Next
                rnBtoSO = C.Offset(0, 4).Value                              'gå till BTO-pris (E-kolumnen)
    
                rnBtoBr = WorksheetFunction.Min(rnBtoES, rnBtoST, rnBtoSO)  'lägsta priset

Hej!

Jag får inte koden att gå vidare med lägsta värdet i koden ovan.  Jag kan se under felsökning att jag får rätt värde från resp. blöadflik (rnBtoES, rnBTOST,rnBtoSO) men worksheetFunction.Min får inte fram rätt värde (rnBtoBr). Kan man inte kombinera Find-funktionen med Min Functionen?

/TH