Changing part of a macros function (Selecting a pdf file from numerous pdf files in a directory)

Below is macro code currently in use:
Sub DuplicateRename()
    strFileCopyFrom = ThisWorkbook.Path & "\" & "Template Checklist.pdf"
    For Each c In Range(Range("A2"), Range("A" & Cells.Rows.Count).End(xlUp))
        strFileCopyTo = ThisWorkbook.Path & "\" & "Template Checklist" & "_" & Format(c, "000") & ".pdf"
        FileCopy strFileCopyFrom, strFileCopyTo
    Next
End Sub

The "Template Checklist.pdf" is fine in there is only one document with that name in the folder.

The folder will soon contain numerous PDF files. Is there an easy way to select the needed file and still fulfill the rest of the macro's function?

Thanks for any suggestions.
dgd1212Asked:
Who is Participating?
 
Saqib Husain, SyedConnect With a Mentor EngineerCommented:
This will ask for a number and will do it to the file with that number
Sub DuplicateRenamebynum()
    strFileCopyFrom = ThisWorkbook.Path & "\" & "Template Checklist.pdf"
    c = InputBox("File Number")
        strFileCopyTo = ThisWorkbook.Path & "\" & "Template Checklist" & "_" & Format(c, "000") & ".pdf"
        FileCopy strFileCopyFrom, strFileCopyTo
End Sub

Open in new window

0
 
dgd1212Author Commented:
Thank you!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.