Solved: Check Cell Contents In A Column

[tonyrosen]

Here's what I'm TRYING to figure out.

Let's assume that you "Select" column B ...

How would I go about checking each cell in Column B?

For Each Cell in Range("B:B")
iData = Value.Cell
If Len(iData) < 4 Then
'Do this
End If
Next


Obviously, this gives me EVERY cell, but I only need to check the ones with data in them.

[mdmackillop]

This will find all formulas and constants in column B, ignoring the blanks.

Sub Macro1()
Dim MyRange As Range, Cel As Range
Set MyRange = Union(Columns(2).SpecialCells(xlCellTypeConstants, 23), _
Columns(2).SpecialCells(xlCellTypeFormulas, 23))
MyRange.Select
For Each Cel In MyRange
DoEvents
Next
End Sub

[tonyrosen]

After tinkering with this this morning, I came up with a solution which does the trick, but is mostly useless (as is the sheet itself anyway).

Thanks!