Excel data to notepad in numerical series name

 If wr > 1 Then
 Application.DisplayAlerts = False
  Do
    Beep
    t1 = InputBox(" Plz Upload The BasketOrder " & tempbof, "PaasWord= Uploaded ", 1)
 Loop Until t1 = Uploaded
    w2.Sheets(1).Range("A1:U" & wr).Select
    Selection.Copy
    Shell "notepad.exe", 3
    SendKeys "^v"
    VBA.AppActivate .Caption
    .CutCopyMode = False
   
    End If
 
 
 End If
 Application.Wait (Now + 0.00001)
Call START_Step2
 
 
End Sub

Hi,
I am looking to put excel data to notepad & Notepad file name will be in numerical series , So plz help me in achieving the same
Thnx for ur Great Hep