VBA that saves filename with name that is same as the directory it is placed in

What does the following line of code mean?

If you pressed the button to proceed then .Show returns -1, if you canceled I believe it equals 0.
So if you canceled it jumps to the NextCode: line and exits.

Also what data type is FileDialog? I don't think I've seen this before:

Did you read the code?

Set fdp = Application.FileDialog(msoFileDialogFolderPicker)

If you are happy with my help feel free to press the add reputation button at the bottom left of this post.

If all is good.
Please click the Thread Tools drop down box above your first post and choose solved.