For the first message box, place this at the top of your code block:
If MsgBox("Do you want to copy the file names?", vbYesNo, "Copy Files?") = vbNo then Exit Sub
Do you want a separate message box for each file name or one message box that would include all file names?