Execute code for first cell match

Hello,
It's been a while since I've posted anything, wondering if there is a different way to write following code. (I am trying to avoid the repeat scenario, i just want to focus on the first cell match even if there are duplicates.)

Sub test()
Dim rcell As Long
Dim PFI As String
Dim WS As Worksheet: Set WS = Sheets("Pro-Forma Invoice")
PFI = WS.Range("G5")

Windows("ORDERS 2014.xlsm").Activate
With Sheets("Pending Orders")
 ' so right over here i would like to change the code to only do the action to the first match the code will find instead of repeating the code for every match.   
For rcell = 5 To .Range("A" & Rows.Count).End(xlUp).Row
        If rcell Mod 2 = 1 Then
            If .Range("O" & rcell) = PFI Then
            .Range("O" & rcell).Select
            Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
            Range("A1").Value = "YOU DID IT!"
            End If
        End If
Next rcell
End With

End Sub

Thanks in advance