Hi

Would this be acceptable?
Sub if_string()
'Assuming data is a column a
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 1 To rowcount
Range("a" & i).Select
If Application.IsText(ActiveCell) = True Then
'do something
MsgBox "a"
Else
'do something different
End If
Next
End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=563386