Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
Public Sub ForEachRng()

Dim rcell As Range, rng As Range

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

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

End Sub
  • No labels