Sub ifallnum()
For Each c In Range("f2:f22")
If Len(c) 0 And IsNumeric(c) Then c.Offset(, -1) = 33
Next
End Sub

Don Guillett
SalesAid Software

"keri" wrote in message
oups.com...
I am wanting to an if statement that evaluates whether the 1st cell in
a selected column is an integer. If it is I want to do nothing, if it
isn't i want to insert a value in the cell to the left. Then I would
like to move on to the next cell in the coloumn and evaluate as above.

The only problem may be that when the cell is not an integer it will be
either an;

integer then a space then a letter
or
and integer then a letter (no space)

Thanks in advance.