Using SendKeys With Notepad Documet

Need urgent help please give your input as soon as possible

Sub MyMacro()
Dim i As Long, iCl As Integer, iTemp As Long, sFname As String, sPath As String

sPath = "D:\I am Converted\"
sFname = "Abc"

With Selection
    For i = 1 To (.Cells.Count / 40)
        .Cells(((i - 1) * 40) + 1).Resize((i * 40) + 1).Copy
        Shell "notepad.exe", vbNormalFocus
        Application.SendKeys "^v"
        How I give the Naming "Abc" & i and close the notepad and do next?
    Next i
End With

End Sub