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

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If cell.Value < "" Then
If Not cell.HasFormula Then
cell.Value = cell.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...
I need to add the Equity to each cell in A in addition to what is
already there. so if A1 = hello I want A1=hello Equity.