run time error '5" invalid procedure call or argument

jay, in future please be specific about WHERE the error is happening? I was eventually able to duplicate the problem... but you are setting the variable Fname equal to a function? what is the purpose of "Fname = Dir" ?

Where did this code come from? It is missing something.... xFname$ = Dir(something) but I don't know what the "something" should be yet...

Try this (notice I added the brackets in red):

Fname = Dir()

i try this one

 Fname = Dir(Path & "\*.xlsx", vbNormal)

now just open 1 st file again and again code stuck at following

For Each ws In wkb.Worksheets
                    strPDFName = ws.Name
                    fileSaveName = ndir & ws.Name
                    ws.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False  ', PageSetup.Orientation = xlLandscape
                Next ws

Yes your adaptation of the original code was pretty good, but does not fully work. Truth is, this is a bit more complicated. I will see what I can do and post the results.

Try this version:

Option Explicit
Sub aaa()
     
    Dim xRow As Long
    Dim Path, Fname, InitialFoldr$
    Dim nName As String, ndir, strPDFName, fileSaveName
    Dim wkb As Workbook
    Dim ws As Worksheet
    Dim dlater As String, getwbn

     
    InitialFoldr$ = "D:\" '
     
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Please select a folder to list Files from"
        .InitialFileName = InitialFoldr$
        .Show
        If .SelectedItems.Count <> 0 Then
            Path = .SelectedItems(1) & "\"
            Fname = Dir(Path & "\*.xlsx", vbNormal)
            Do While Fname <> ""
                If Fname <> "." And Fname <> ".." Then
                    getwbn = Fname
                    dlater = Left(getwbn, 9)
                    nName = dlater
                    ndir = "D:\1\" & nName & "\"
                    If Not CreateObject("Scripting.FileSystemObject").FolderExists(ndir) Then CreateObject("Scripting.FileSystemObject").CreateFolder ndir
                    Set wkb = Workbooks.Open(Filename:=Path & "\" & Fname)
                    For Each ws In wkb.Worksheets
                        strPDFName = ws.Name
                        fileSaveName = ndir & ws.Name
                        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False  ', PageSetup.Orientation = xlLandscape
                    Next ws
                    wkb.Close False
                End If
                Fname = Dir()
            Loop
        End If
    End With
End Sub

Great jay
Can you mark the thread as solved? Thanks!