ผมต้องการ ให้ไฟล์ CODE VBA ไปอยู่ในโฟลเดอร์ไหน ก็สามารถเปิดไฟล์อื่นได้ในโฟลเดอร์ที่โค้ดนั้นอยู่ จากโค้ดนี้ ต้องแก้ยังไงตรงไหนครับ 
Sub NA()

Dim File_Path As String
Dim strName As String
File_Path = ""
strName = Dir(File_Path & "\" & "*.xlsx")
Do While Not strName = ""
Workbooks.Open Filename:=File_Path & "\" & strName
strName = Dir
Loop
End Sub