Loop gennem drop-down liste og gemme hver valgmulighed som ny Excel-fil

Hej. Jeg har googlet rundt og prøvet at kopiere og tilrette diverse kode fra nettet - men uanset hvad jeg prøvede kan jeg ikke løse denne opgave - som jeg ville have troet var enkel. Så derfor håber jeg på hjælp.

Casen:
Se gerne fil på: https://www.dropbox.com/s/4sa9cyikw1dbdyz/Eksempel%20-%20makro1.xlsx?dl=0

I filens første fane ("OversigtX") i celle D5 er der en drop-down liste (pt kun med 3 muligheder - men normalt med 50-100). Det jeg ønsker er at gemme én fil (.xlsx) pr. valgmulighed for alle valgmuligheder i drop-down listen (dvs. loop), med følgende specs overholdt:

a) Kun 1. fane (OversigtX) skal gemmes

b) Formatet skal være som værdier, men med beholdt formatering.

Her mener jeg at have løsningen med:
    Worksheets("OversigtX").Copy
    With ActiveSheet.UsedRange
        .Value = .Value
    End With

c) Jeg vil gerne have en prompt/messagebox, hvor jeg kan pege på den mappe som filerne skal gemmes i. Her mener jeg at være nær løsningen med...
Dim oDialog As FileDialog
Dim sDPath as String
Set oDialog = Application.FileDialog(msoFileDialogFolderPicker)
With oDialog
.Title = "Vælg sti"
.InitialFileName = "C:\"
.AllowMultiSelect = False
If.Show<>1-1 Then Exit Sub
sDPath = SelectedItems(1)
Test (sDPath)

d) Filnavn skal være samme som den valgte mulighed i drop-downlisten (celle D5) samt dato, sidstnævnte i formatet Format(Now, "dd-mm-yyyy")

e) Når filen er gemt skal den lukkes (så jeg ikke ender med 50-100 åbne filer)

f) Den oprindelige fil skal forblive åben efter makroen er færdig med at loope gennem og gemme hver valgmulighed.

På forhånd tak:-)