Find the content in Excel with Loop

Sub WithLoop()

Dim rCell As Range

For Each rCell In Cells

If rCell.Value = "Find Me" Then
rCell.Activate
Exit For
End If

Next rCell
  End Sub