Macro chuyển font chữ bị lỗi trong Excel 2003

[Hoàng Trọng Nghĩa]

Tôi tải file có macro VNI(string) (chuyển font trong VBA) của Bác TuanUni. Hàm chạy tốt trên Excel 2007, tuy nhiên bị lỗi trên Excel 2003. Mong các Bác cho biết lỗi gì và cách khác phục.
Dưới đây là hình ảnh đính kèm.

 

[Pozsi]

Bạn có thể gửi file XLS đó lên được ko?
Nhìn hình thì khó đoán bệnh lắm bạn ơi!
Mình ko phải "Hoa Đà" tái thế đâu?
HI hi hi hihi

 

[MinhNguyệt]

Tôi tải file có macro VNI(string) (chuyển font trong VBA) của Bác TuanUni. Hàm chạy tốt trên Excel 2007, tuy nhiên bị lỗi trên Excel 2003. Mong các Bác cho biết lỗi gì và cách khác phục.
Dưới đây là hình ảnh đính kèm.

Hàm vẫn chạy tốt trên Excel 2003 mà Tôi đang sử dụng tốt. Bạn gửi file lỗi lên xem nào
Thân

 

[Hoàng Trọng Nghĩa]

Bạn có thể gửi file XLS đó lên được ko?
Nhìn hình thì khó đoán bệnh lắm bạn ơi!
Mình ko phải "Hoa Đà" tái thế đâu?
HI hi hi hihi

File đã gửi lên, trong vbe "this workbook" không chạy macro
Private Sub Workbook_Activate()
AddToolBars
End Sub
Khi kích hoạt chuyển qua module ChuyenFont, (như hình)

Nói chung không hiểu sao, trên hệ điều hành Window7 và Excel 2007 thì chạy tốt, còn XP và 2003 thì không chạy cái Menu tự tạo, báo lỗi lung tung.

Nhờ bạn kiểm tra dùm.
cám ơn.

 

[Hoàng Trọng Nghĩa]

Làm ơn cho hỏi, có ai giúp mình được không vậy?

 

[MinhNguyệt]

1/ Đưa code của Sheet1 vào trong ThisWorkbook
2/ Bị lỗi DDL, bạn mở một module bất kỳ, vào Tools/References, xóa hàng có chữ MISING, bấm Browse tìm đến C:\ProgramFile\Microsoft Office\Office11\REFEDIT.DDL
3/ Lưu File và thoát rồi mở lại xem sao

 

[Hoàng Trọng Nghĩa]

1/ Đưa code của Sheet1 vào trong ThisWorkbook
2/ Bị lỗi DDL, bạn mở một module bất kỳ, vào Tools/References, xóa hàng có chữ MISING, bấm Browse tìm đến C:\ProgramFile\Microsoft Office\Office11\REFEDIT.DDL
3/ Lưu File và thoát rồi mở lại xem sao

Đúng rồi, tôi đặt sai vị trí rồi (1).
Nếu không thấy C:\ProgramFile\Microsoft Office\Office11\REFEDIT.DDL (2) thì sao?
Cám ơn rất rất nhiều!