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

Simplify

Do
For Each c In Range("A5:A" & r)

    If c.Value = CurrentWk Then
        'Select range going down 15 rows
        c.Select
    End If

Next c
Loop Until c.Value = CurrentWk

to

For Each c In Range("A5:A" & r)

    If c.Value = CurrentWk Then
        'Select range going down 15 rows
        c.Select
        Exit For
    End If

Next c