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

Or do it properly, without the need to select random stuff...

Dim FindWk

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

If Not FindWk Is Nothing Then
  FindWk.Select
End If

Avoids the need to loop altogether.