Nhờ giúp đỡ sort khi có hyperlink (1 người xem)

[AnhHuy81]

Mình bị trường hơp sau:
Khi sort file excel có chứa hyperlink (dùng insert -> hyperlink để link tới các file pdf) thì sau khi sort các hyperlink bị nhảy lung tung.
Các bạn có thể giúp mình sortmà hyperlink không bị thay đổi không.
Xin cảm ơn.

 

[AnhHuy81]

Mình search trên trang nước ngoài thì thấy có hướng dẫn fix lỗi sort hyperlinks bằng code vba sau nhưng khi mình chạy code thì báo lỗi: "Can't execute code in break mode".
Bạn nào biết về VBA Code giúp mình kiểm tra xem code bị lỗi ở chỗ nào nha.
Xin cảm ơn.
Links: http://www.spreadsheetsmadeeasy.com/hyperlinks-are-lost-after-sorting-vba-fix/

Code:
Option Explicit

Sub fixHyperlinks()
Dim rng As Range
Dim address As String

Application.ScreenUpdating = False

For Each rng In Selection
If rng.Hyperlinks.Count > 0 Then
address = rng.Hyperlinks(1).address

rng.Hyperlinks.Add Anchor:=rng, _
address:=address
End If
Next

Application.ScreenUpdating = True
End Sub

 

[AnhHuy81]

Không có ai gặp vấn đề này sao?

 

[be_09]

Không có ai gặp vấn đề này sao?

Bạn không đính kèm File thì ai biết mà giúp cho bạn ở sheet nào và Link với File PDF ở cột nào.