Lỗi Runtime 445 (1 người xem)

[duytienmta]

Mình có đoạn code sau, xin hỏi các cao nhân chỉ giáo giúp lỗi này k chạy được cứ báo lỗi tumtime 445 ạ. Xin cảm ơn
Sub Open_File()
Dim fName As String
fName = Cells(ActiveCell.Row, 9).Value
With Application.FileSearch
.NewSearch
.Filename = fName
.LookIn = ThisWorkbook.Path
.SearchSubFolders = True
If .Execute Then CreateObject("Shell.Application").Open .FoundFiles()
End With
End Sub
Sub QD2_Click()
Range("G17").Select
End Sub
Sub QD1_Click()
Range("G9").Select

 

[SA_DQ]

1./ 'Sub' thứ 3 chưa/thiếu 1 số câu lệnh còn lại(?!)
2./ Hãy cho biết dòng lệnh nào báo cái lỗi mà bạn đang gặp?
3./ Lưu ý nhỏ: Lần sau nhớ cho mấy đứa con tinh thần của bạn vô
[ code]. . . [/code] hay [PHP ]. . . [ /php]
Để chứng tỏ việc tôn trong cộng đồng của bạn cái nha!

Xin chào & chúc mọi người vui khỏe suốt ngày!