Remove Carriage Returns From Target Cell

I have found this code to be very helpful in removing carriage returns on worksheets designed for other people to complete.

Private Sub Worksheet_Change(ByVal Target As Range)

Target.Replace What:="" & Chr(10) & "", _
Replacement:=" ", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Target.Rows.AutoFit

End Sub

Happy VBing.
JoJo

Please read forum rules below and then wrap your code

VBA Noob