エクセルで改行を削除するマクロ

J列を指定してあります。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2007/6/14 ユーザー名 : @
'

'
Columns("J:J").Select
Selection.Replace What:=Chr(10), Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub