Sub HelloWorld5() Selection.TypeText ("Hello World....." & vbCrLf) Selection.TypeText ("Hello World....." & vbCrLf) Selection.TypeText ("Hello World....." & vbCrLf) Selection.TypeText ("Hello World....." & vbCrLf) Selection.TypeText ("Hello World....." & vbCrLf) End Sub