How to exit a loop once the value is found in the range

Liking Andrew's solution better, I would do

Dim FindWk

Set FindWk=Range("A5:A" & r).Find(CurrentWk, lookin:=xlValues, lookat:=xlWhole)

If Not FindWk Is Nothing Then
  Range(FindWk.Offset(0, 0), FindWk.Offset(14, 0)).Select
End If