مساعدة فى كود vba

[((( folks )))]

السلام عليكم ورحمة الله وبركاته

عند فتح الفورم بالأوفيس 2003 لا تظهر المشكلة ولكن عنده فتحه بإصدار أعلى تظهر المشكلة 

Private Sub FrstChnge(combo1, combo2)
Dim val As String
Dim ARY As Variant

val = combo1.Value
combo2.Clear
If val = "" Then Exit Sub
val = ThisWorkbook.Path & "\" & val & "\Ser"
With Application.FileSearch
    .NewSearch
    .LookIn = val
    .SearchSubFolders = False
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
            Namey = .FoundFiles(i)
            For nn = Len(Namey) To 1 Step -1
                If Mid(Namey, nn, 1) = "\" Then
                    Namey = Right(Namey, Len(Namey) - nn)
                    Namey = Left(Namey, Len(Namey) - 4)
                End If
                Next nn
            combo2.AddItem Namey
        Next i
    End If
End With

End Sub

 

تم تعديل منذ 2 ساعات بواسطه ((( folks )))