Sub test
For x = 2 To Cells(Rows.Count, 4).End(xlUp).Row
Temp = Trim(Cells(x, 4))
For j = 1 To Len(Temp)
If Mid(Temp, j, 1) Like "#" Then
Cells(x, 4) = Mid(Temp, j, Len(Temp))
Cells(x, 4).Value = Replace(Cells(x, 4), vbCrLf,"")
Exit For
End If
Next j
Next x
End sub
[\CODE]