Search Range for cell that begins with "Pri"

Try this:

Sub Scabtree(): Dim r As Long
         r = 99:    Do
    If LCase(Left(Cells(r, 1), 3)) = "pri" Then _
        Cells(r, 1).Select: Exit Sub
            r = r - 1: Loop Until r = 0
End Sub