Excel destinazione file txt

[libraio]

Ciao a tutti,
ho recuperato in un post precedente il seguente codice proposto da Anthony47 e l'ho modificato per le mie esigenze con successo.
Non riesco tuttavia a dare la destinazione voluta al file .txt creato, che dovrebbe essere salvato sul desktop, con eventuale sovrascrittura sull'esistente.
Chi mi aiuta?...

Ecco il codice:

Sub textwrt()
OutArea = "L2:L1000" '<<< Area da salvare
LastR = Evaluate("=MAX((" & OutArea & "<>"""")*(ROW(" & OutArea & ")))")
'
Filename = "OrdineMELI.txt" '<<< Il nome del file
FileNo = FreeFile
Open Filename For Output As #FileNo
aaa = Range(OutArea).Cells(1, 1).Resize(LastR - Range(OutArea).Cells(1, 1).Row + 1).Address
For Each myCell In Range(OutArea).Cells(1, 1).Resize(LastR - Range(OutArea).Cells(1, 1).Row + 1)
If myCell.Row < LastR Then
Print #FileNo, myCell.Value
Else
Print #FileNo, myCell.Value;
End If
Next myCell
Close #FileNo
End Sub

[ricky53]

Ciao,
cambia

Filename = "OrdineMELI.txt"

in

Filename = "C:\Tuo-Percorso\OrdineMELI.txt"

Consiglio: non salvare sul Desktop ma su un percorso tuo specifico, meglio se sul disco "D".

[libraio]

Grazie per la soluzione; è quanto cercavo!
Concordo, ovviamente, sul consiglio di non salvare sul desktop, tant'è che ho modificato la estinazione in una cartella "ad hoc".
Siete insostituibili