For Each Cell in Range of Cells - VBA

Public Sub ForEachRng()

Dim rcell As Range, rng As Range

Set rng = Application.ActiveSheet.Range("A1:A5")

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

Page tree

For Each Cell in Range of Cells - VBA