Search from a list of hyperlink if the file exist then select the path as directory

[jiaweilee]

I need to find search from a list of hyperlink in the column D and if the folder exist in the link then select the link as copy path directory so the macro can open the file and copy one of the sheet in it.
I use the long way by repeating the code, how can it be done in the shorter way?

<strike></strike>

If FileFolderExists(ActiveWorkbook.Sheets("Config").Range("D2")) Then    CopyFromDirPathFile = ActiveWorkbook.Sheets("Config").Range("D2")
'
'
'
end sub

I repeat it until D8