Ash, welcome to ExcelFox community.
First, how would the program know that for example Mr. ExcelFox is termed? Second, in your worksheet, are all the hyperlinks in the same column one below the other? Instead of the developers doing a guess work here, can you post a sample workbook so that the code could be written accordingly.
For a more generic code, try this
Code:Sub MoveFiles() Dim strFolderA As String Dim strFolderB As String Dim strFile As String Dim Cnt As Long '//Change the path to the source folder, accordingly strFolderA = "C:\Path\FolderA\" '//Change the path to the destination folder, accordingly strFolderB = "C:\Path\FolderB\" If Right(strFolderA, 1) <> "\" Then strFolderA = strFolderA & "\" If Right(strFolderB, 1) <> "\" Then strFolderB = strFolderB & "\" '//To filter for .xlsx files, change "*.*" to "*.xlsx" strFile = Dir(strFolderA & "*.*") Do While Len(strFile) > 0 If Date - Int(FileDateTime(strFolderA & strFile)) > 2 Then Cnt = Cnt + 1 Name strFolderA & strFile As strFolderB & strFile End If strFile = Dir Loop MsgBox Cnt & " file(s) have been transfered to " & strFolderB, vbInformation End Sub




Reply With Quote

Bookmarks