Edit code to add extra criteria

How do I make this formula include searching for "ann" and "john" (in separate cells)?
Thanks

Sub Find_ANN()
    Dim rng As Range
    Dim what As String
    what = "ann"
    Do
        Set rng = ActiveSheet.UsedRange.Find(what)
        If rng Is Nothing Then
            Exit Do
        Else
            Rows(rng.Row).Delete
        End If
    Loop
End Sub

Maybe

Sub Find_ANN()
    Dim rng As Range
    Dim i As Long
    Dim what As Variant
    what = Array("ann", "John")
    For i = 0 To UBound(what)
        Do
            Set rng = ActiveSheet.UsedRange.Find(what(i))
            If rng Is Nothing Then
                Exit Do
            Else
                Rows(rng.Row).Delete
            End If
        Loop
    Next i
End Sub

VBA Noob