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