Sub 長いプログラムコードを改行する()
'改行したいところで「& _」(半角スペース+アンダーバー)を挿入して改行する
Range("A1").Copy _
Range("A2")
'コードを改行してもメッセージボックス内は改行されないので注意
MsgBox "改行する前の行" & _
"改行した後の行"
'メッセージボックス内を改行したい場合は「 & vbCrLf & _」と記載する
'MsgBox "改行する前の行" & vbCrLf & _
"改行した後の行"
End Sub