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

Thanks guys for the suggestions! They both solved my problem...

I have another question. In my code, if c.value = CurrentWk, i want it to select c and select 15 rows going down. how do i do this?

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