sort pdf files in folder A-Z

[ipbr21054]

Morning.
I have a command button on my worksheet which opens folder folder on my pc for which i keep pdf files.
The files keep changing to smallest number to largest number 1,2,3,4 etc

I have the following code which opens the folder BUT can i add to the code so it sorts the pdf files so i see 4,3,2,1 order.

Thanks.

Private Sub CustomerSortAtoZ_Click()
    Dim x As Long
        Application.ScreenUpdating = False
        With Sheets("DATABASE")
        If .AutoFilterMode Then .AutoFilterMode = False
        x = .Cells(.Rows.Count, 1).End(xlUp).Row
            .Range("A5:Z" & x).Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess
    End With
    ActiveWorkbook.Save
       Application.ScreenUpdating = True
    MsgBox "SORTED A-Z SUCCESSFULLY", vbInformation, "DATABASE SORT A-Z MESSAGE"
       
       Sheets("DATABASE").Range("A7").Select
       Sheets("DATABASE").Range("A6").Select
       
End Sub

 

[rollis13]

Would changing to =xlDescending be of some help ?

.Range("A5:Z" & x).Sort Key1:=Range("A6"), Order1:=xlDescending, Header:=xlGuess

 

[ipbr21054]

Im sorry i supplied the wrong code in post #1

The code i use to open the folder is shown below.

Private Sub OpenPdf_Click()
Dim strFolder As String
strFolder = "C:\Users\Ian\Desktop\REMOTES ETC\DR\DR SCREEN SHOT PDF\"
ActiveWorkbook.FollowHyperlink Address:=strFolder, NewWindow:=True
End Sub

Now once the folder is open i would like to sort the files from highest number to lowets number 100,99,98,97,96 etc

Many thanks

 

[rollis13]

Sorry, no idea how this can be done since folders are sorted by default in Windows explorer pane; maybe with use of some API but the easiest is to click on the header of the filename column in Windows explorer. Other solution could be to import the list of files and have Excel do the sorting then paste them into a userform and from it manage them as needed but this is a different approach.