Sub OpenHyperLinks()
'Update 20141124
    Dim xHyperlink As Hyperlink
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each xHyperlink In WorkRng.Hyperlinks
        xHyperlink.Follow
    Next
End Sub

#If VBA7 Then
Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileW" _
    (ByVal pCaller As LongPtr, ByVal szURL As LongPtr, ByVal szFileName As LongPtr, _
    ByVal dwReserved As Long, ByVal lpfnCB As LongPtr) As Long
#Else
Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileW" _
    (ByVal pCaller As Long, ByVal szURL As Long, ByVal szFileName As Long, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If

Sub DownloadSelection()
    Dim url, fil, i As Long, c As Range, n As Long, statusbar_o
    statusbar_o = Application.StatusBar
    For Each c In Selection.Cells
        url = c.Value
        If LCase(url) Like "http:*" Then
            i = InStrRev(url, "/")
            fil = ThisWorkbook.Path & "\" & Mid(url, i + 1)
            If URLDownloadToFile(0, StrPtr(url), StrPtr(fil), 0, 0) <> 0 Then
                MsgBox "Download error: " & url, vbCritical
            Else
                n = n + 1
                Application.StatusBar = "Download files: " & n
            End If
        End If
    Next c
    Application.StatusBar = statusbar_o
End Sub