¿Como hacer que este macro genere TXT en el mismo lugar donde esta la hoja de excel?

Como puedo hacer que este macro genere el archivo TXT en la misma carpeta en donde esta el archivo de excel

Sub crear_txt()
'por luismondelo
Open "PUNTO.SCR" For Output As #1
Range("D2").Select
Do While ActiveCell.Value <> ""
dato = ActiveCell.Value

Print #1, dato
ActiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub

Ya que actualmente lo genera en Documentos.