Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 211
  • Last Modified:

Edit a Macro to input text

I currently have this macro:
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

This line needs to be changed:
strFileCopyFrom = ThisWorkbook.Path & "\" & "Template Checklist.pdf"

I need to be able to input various form names from Sheet 1 C3 in place of the same name of "Template Checklist.pdf"

Thanks
0
dgd1212
Asked:
dgd1212
1 Solution
 
Rgonzo1971Commented:
Hi,

pls try

strFileCopyFrom = ThisWorkbook.Path & "\" & Sheets("Sheet1").Range("C3").Value

Open in new window

Regards
0
 
dgd1212Author Commented:
Thank you!
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now