sorry, should have been

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Cells(i, "A").Value < "" Then
If Not Cells(i, "A").HasFormula Then
Cells(i, "A").Value = Cells(i, "A").Value & " Equity"
End If
End If
Next i

End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Shani" wrote in message
oups.com...
If cell.Value < "" Then

returns error