Trong bài toán này thay vì dùng sự kiện:Bạn xem file đính kèm (double click vào cell rồi enter)
Private Sub Worksheet_Change(ByVal Target As Range)
'----------------
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'---------------
End Sub