Schelledraad
Gebruiker
- Lid geworden
- 11 feb 2014
- Berichten
- 112
Dank je. Ik had net deze bedacht. Zelfde gedachte, iets andere uitvoering. 
Sub LineFeedDestroyer()
Cells.Replace What:="" & Chr(10) & "", Replacement:="", LookAt:=xlPart
End Sub

Sub LineFeedDestroyer()
Cells.Replace What:="" & Chr(10) & "", Replacement:="", LookAt:=xlPart
End Sub