change mc to your column
Sub insertphraseallcellsincolumn()
Dim i As Long
Dim mc As Long
mc = 11 'col K
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row
If Len(Application.Trim(Cells(i, mc))) 0 Then
Cells(i, mc).Value = "new stuff " & Cells(i, mc)
End If
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Elskan" wrote in message
...
I am trying to insert the same phrase followed by a colon and a space in
front of the text in all cells in a column. Is there a simple way to do
this
with find and replace?