Automate the Hyperlink process for multiple cells to folders?

[jserow]

I want to make a hyperlink for these cells going to folders of the same name.
I would like to automate this process as I have over 250 individual cells to link to folders accordingly.
Is this a possibility?


201712001 <= i.e. to folder D:/2017/12/201712001
201712002 <= i.e. to folder D:/2017/12/201712002
201712003 <= i.e. to folder D:/2017/12/201712003
201712004 <= i.e. to folder D:/2017/12/201712004
201712005 <= i.e. to folder D:/2017/12/201712005
201712006
201712007
201712008
201712009
201712010

 

[John_w]

Try this, changing the Range to suit:

Sub Create_Hyperlinks()
    Dim cell As Range
    For Each cell In Range("A2:A10")
        cell.Parent.Hyperlinks.Add Anchor:=cell, Address:="D:\2017\12\" & cell.Value
    Next
End Sub

 

[jserow]

John_w,

Thank you very much for your help with this. The code worked like a charm.

It is very much appreciated, what would have taken me hours to complete took literally minutes for 12 months worth.

Thanks Again,
JSerow