하이퍼링크로 지정된 경로의 파일 다운로드

Sub File_Download()
    Dim i, l As Integer
    l = InputBox("자료를 다운받을 마지막 행을 입력하세요.", "행 입력")
    For i = 1 To l
        Range("C" & i).Select
        Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Application.Wait DateAdd("s", 2, Now) '다음파일 다운로드까지 시간지연 2초, 시간을 변경하려면 숫자를 수정할 것
    Next
    i = i + 1
End Sub