หลังจากใส่โค้ดเพื่อหาโฟลเดอร์ที่ EXCEL VBA ไฟล์นี้อยู่ พอรันแล้วฟ้องขึ้นว่าไฟล์ได้ถูกย้ายไปที่อื่น หรือ ถูกลบครับ แก้ไขยังไงครับ รบกวนผู้รู้ช่วยดูให้หน่อยครับ ขอบคุณครับ


Sub NNN()

Dim newSht As Worksheet
Dim copyBook As Excel.Workbook
Dim copySht As Worksheet
Dim path As String
Dim Filename As String

    path = ThisWorkbook.path & "\"
    If Len(WorksheetName) > 30 Then
    WorksheetName = Left(WorksheetName, 30)
    End If
     Set copyBook = Workbooks.Open(path & Filename, UpdateLinks:=0, ReadOnly:=False)
     Set copySht = copyBook.Worksheets(1)
End Sub