So sánh tên workbook đang mở với giá trị trong sheet

[mymapmap]

Mình làm cái so sánh tên workbook mới mở với giá trị chứa trong sheet1.A1 nhưng không biết sai ở cho nào mà code không chạy được
Mong các A/C sửa dùm.
Xin cảm ơn nhiều!

 

[concogia]

Mình làm cái so sánh tên workbook mới mở với giá trị chứa trong sheet1.A1 nhưng không biết sai ở cho nào mà code không chạy được
Mong các A/C sửa dùm.
Xin cảm ơn nhiều!

Bạn thử sửa chỗ này xem sao

......
NewName = ActiveSheet.Range("A1").Value & ".xls"
If ActiveWorkbook.Name = NewName Then Exit Sub
........