What character? if it has disappeared in your post please put it either
in a quote or VBA tag.


--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: 1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=176694

Microsoft Office Help

Simon Lloyd;634559 Wrote:
What character? if it has disappeared in your post please put it either
in a quote or VBA tag.

Hi Simon, the character it the "" square.


--
StackemEvs
------------------------------------------------------------------------
StackemEvs's Profile: 1402
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=176694

Microsoft Office Help

StackemEvs;636340 Wrote:
Hi Simon, the character it the "" square.Thats an imported carriage return, try the code below:

Sub test()
Dim r As Range
On Error Resume Next
With CreateObject("VBScript.RegExp")
For Each r In
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants, 2)
Pattern = "[\n\r]+"
Global = True
r.Value = .Replace(r.Value, " ")
Pattern = "\s{2,}"
Global = True
r.Value = .Replace(r.Value, " ")
Next
End With
End Sub


--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: 1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=176694

Microsoft Office Help

Simon Lloyd;636628 Wrote:
Thats an imported carriage return, try the code below:

Sub test()
Dim r As Range
On Error Resume Next
With CreateObject("VBScript.RegExp")
For Each r In
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConst ants, 2)
.Pattern = "[\n\r]+"
.Global = True
r.Value = .Replace(r.Value, " ")
.Pattern = "\s{2,}"
.Global = True
r.Value = .Replace(r.Value, " ")
Next
End With

End Sub

Thanks Simon, be mid afternoon before I get a chance to test it, but
I'll let you know then how it goes, Neil


--
StackemEvs
------------------------------------------------------------------------
StackemEvs's Profile: 1402
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=176694

Microsoft Office Help