Code sai nhiều quá
Viết lại cho bạn đây:
Sub checkLink()
Dim hlnk As Hyperlink, sh As Worksheet, lCount As Long, iFileNum As Integer
Dim arrAdd(), strAdress As String, strName As String, tmpFile As String
Set sh = ActiveSheet
If sh.Hyperlinks.Count Then
ReDim arrAdd(1 To...