Hi,
I have a code that copy a excel file data & paste it to Notepad But i want to save that Notepad File In Numerical Series
So looking for Help
 If wr > 1 Then
    msg = InputBox("Please upload the Basket Order")
    If msg = "1234" Then
    w2.Sheets(1).Range("A1:U" & wr).Select
    Selection.Copy
    Shell "notepad.exe", 3
    SendKeys "^v"
    VBA.AppActivate .Caption
    .CutCopyMode = False
   
    End If