Hjælp til søge funktion

Nedenstående makro virker sådan at når en bruger vælger et emne i listbox så søger makroen i området ("c2:aw2") og hvis den finder identisk "emne" kopierer den ca. 40 celler og indsætter dem i ark1. Makroen virker fint så længe at der i området ("c2:aw2") en intaste værdi, men når der en formel i cellen finder den ikke noget. Hvordan kan det løses?



Private Sub ListBox1_Click()
Dim rFound As Range
    Dim rLook As Range
  Dim rValue As String
    Dim rDest As Range
    rValue = ListBox1.Value
    Set rLook = Worksheets("Kbh").Range("c2:aw2")
   

    Set rFound = rLook.Find(rValue, , , xlWhole)
    If Not rFound Is Nothing Then
        rFound.Resize(44, 1).Copy
        With Worksheets("Ark1")
                    With .Range("IV29").End(xlToLeft).Offset(0, 1)
                        .PasteSpecial xlPasteValues
                        .PasteSpecial xlPasteComments
                        Selection.HorizontalAlignment = xlCenter
                    End With

        End With
       
        End If
End sub