Error ฟังก์ชั่นที่เคยใช้ได้

[mynumnum]

เรียนถามผู้รู้ทุกท่าน

ผมได้เขียนโค้ดใน VBA โดยใช้ ฟังก์ชั่น format ซึ่งสามารถทำงานได้ตามปกติ
ภายหลังเปลี่ยนเครื่องลงโปรแกรมใหม่

พอกลับมาใช้งานอีกทีมีข้อความแจ้ง

" Compile error:
Can't find project or library "

ไม่ทราบว่าเกิดจากสาเหตุอะไร และมีวิธีการแก้ไขอย่างไรบ้างครับ

[snasui]

เขียน Code ไว้ว่าอย่างไรและ Error เมื่อ Code รันไปถึงบรรทัดไหนครับ

[mynumnum]

จะแสดง error ตรง Format ครับ

Code: Select all

Sub AddDelDay()
Dim Pos, mDate, tDate As String
Dim NumCol, DDate As Integer
ActiveSheet.Unprotect
    Pos = Selection.Address
    NumCol = Selection.Column
    mDate = Cells(5, NumCol).Value
    Range(Cells(7, NumCol), Cells(7, NumCol)).Select
    If Val(Format(mDate, "YYYY")) > 3000 Then
        tDate = Format(mDate, "dd mmmm ") & Val(Format(mDate, "YYYY")) - 543
    Else
        tDate = Format(mDate, "dd mmmm yyyy")
    End If
    If Selection.MergeCells Then
        ' ยกเลิกวันหยุด
        If MsgBox("ต้องการยกเลิกการกำหนดวันที่ " & tDate & " เป็นวันหยุดใช่หรือไม่", vbYesNo + vbDefaultButton2 + vbQuestion, "ยืนยันการยกเลิกวันหยุด") = vbYes Then
            mUnMerge
            Selection.ClearContents
        End If
    Else
        Range(Cells(7, NumCol), Cells(41, NumCol)).Select
        If MsgBox("ต้องการกำหนดวันที่ " & tDate & " เป็นวันหยุดใช่หรือไม่", vbYesNo + vbDefaultButton2 + vbQuestion, "ยืนยันการกำหนดวันหยุด") = vbYes Then
            ' ผสานเซล
            Call mMerge
        End If
    End If
ActiveSheet.Protect
End Sub

[snasui]

ช่วยแนบไฟล์มาด้วยจะได้สะดวกในการตอบของเพื่อนสมาชิกครับ