Norman,
Works a treat. Thank you for the very fast replies.

"Norman Jones" wrote:

Hi Richard,

Try:

'=============
Public Sub Tester()
Activesheet.Columns("A").Replace _
What:=Chr(10), _
Replacement:=vbNullString, _
SearchOrder:=xlByRows, _
Lookat:=xlPart
End Sub
'<<=============


---
Regards,
Norman


"Syscon" wrote in message
...
Thanks for the very fast reply !
And if I just want to strip it from the open worksheet? ( as some
worksheets
have "memo" fields with a free form entrys that I do not want striped )
Presumably it is a change to :-
SH.Columns("A").Replace _

Richard