For Each Cell in Range of Cells - VBA

Public Sub ForEachRng()

Dim rcell As Range, rng As Range

Set rng = UsedRange

For Each rcell In rng.Cells
 If Not IsError(rcell.Value) Then
  If rcell.Value <> "" Then
   If IsNumeric(rcell.Value) = True Then
    MsgBox "It's a Number!"
   End If
  End If
 End If
Next rcell

End Sub

Dim i As Long, rng As Range

Set rng = GetUsedRange(ActiveSheet)

For i = rng.Cells.Count To 1 Step -1
 If Not IsError(rng(i).Value) Then
  If rng(i).Value <> "" Then
   If rng(i).Value = StringToCheck Then
    Debug.Print rng(i).Address
    rng(i).EntireRow.Delete
   End If
  End If
 End If
Next i

Public Sub ForEachRngBackwares()
Dim rcell As Variant, rng As Range

Set rng = GetUsedRange(ActiveSheet)

For Each rcell In ReverseRange(rng)
 If Not IsError(rcell.Value) Then
  If rcell.Value <> "" Then
   If IsNumeric(rcell.Value) = True Then
    Debug.Print rcell.Address
    rcell.entirerow.delete
   End If
  End If
 End If
Next rcell
End Sub