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
Welcome to FreeSoftwareServers Confluence Wiki
Overview
Content Tools