Greetings,

I need help with a macro.

I use this macro in Excel 2007:

Sub ReplaceTags2()
For Each c In ActiveCell.CurrentRegion.Cells
c.Value = Application.WorksheetFunction.Substitute(c, "####", Chr(10)
& Chr(10))
Next
End Sub

My data contains the markers ####, which I want to replace with
linebreaks.

The macro does its work but messes up the formatting in the cells. I
uploaded the file "Book1.xlsm" he http://www.box.net/shared/8rdsg533qp

The file contains a sample of the data + the macro itself.

Can anyone help me modify the macro to do the replacement without
changing anything to the cell formatting?
Thanks in advance!