Hàm Hyperlink với link dài hơn 255 ký tự

[Tomtep]

Chào các bác, em đang đau đầu với cái hàm Hyperlink với link trên 255 ký tự thì bị dính lỗi #VALUE. Số lượng link của em khá nhiều nên đang ko biết xử lý thế nào.
Các bác xem file đính kèm nha
Em định dùng 3 giải pháp:
- 2 giải pháp đầu dùng TinyURL và bitly (em kiếm đc trên mạng) để thu gọn link nhưng khi click vào link thu gọn thi lại không giống link gôc
- Giải pháp 3: em dùng macro (cũng chôm trên mạng):

Public Sub Convert_To_Hyperlinks()
Dim Cell As Range
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
If Cell <> "" Then
ActiveSheet.Hyperlinks.Add Cell, Cell.Value
End If
Next
End Sub

Dùng tốt nhưng nhược điểm link dài, và mỗi lần lại phải bôi chọn các link rồi bấm ALT+F8 để chạy macro em thấy bất tiện quá, bác nào giúp chỉnh sửa cái macro trên để tự động chạy khi các ô chứa link cột A thay đổi thì nó tự cập nhật chuyển textlink sang link.