Saving Column with Hyperlink Function as a Hyperlink

[J Harper]

I have created a column of active hyperlinks using the HYPERLINK FUNCTION. I need a column of active hyperlinks without using the HYPERLINK FUNCTION. I have tried PASTE SPECIAL and cannot same the active link.

How can I copy the column and save as an active hyperlink without using the HYPERLINK FUNCTION?

UNACTIVATED FILE PATH	ACTIVATED FILE PATH USING HYPERLINK FUNCATION; EXAMPLE: HYPERLINK (A2)	NEED ACTIVATED PATH WITHOUT USING HYPERLINK FUNCTION
C:\users\downloads\temp\test_folder_dch\test 1.pdf	C:\users\downloads\temp\test_folder_dch\test 1.pdf
C:\Users\downloads\temp\test_folder_dch\test 2.pdf	C:\Users\downloads\temp\test_folder_dch\test 2.pdf
C:\Users\downloads\temp\test_folder_dch\test 3.pdf	C:\Users\downloads\temp\test_folder_dch\test 3.pdf
C:\Users\downloads\temp\test_folder_dch\test 4.pdf	C:\Users\downloads\temp\test_folder_dch\test 4.pdf

 

[johnnyL]

Something like the following:

Public Sub Copy_Files()
    Dim destFolder As String
    Dim lastRow As Long, r As Long
    Dim SourceFile As String
    Dim DestinationFileRename As String
'
    destFolder = "C:\files\pdfs\"
'
    If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
'
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        For r = 2 To lastRow
            SourceFile = .Cells(r, "C")
            DestinationFileRename = .Cells(r, "B")
            FileCopy SourceFile, destFolder & DestinationFileRename & ".pdf"
        Next
    End With
End Sub