vba 여러 파일들 최근에 작성한 탭 여러개 자동인쇄 getopenfile 명령어 질문있습니다.

Sub test()
    Dim fName As Variant
    Dim Files As Variant
    Dim wb As Workbook

    Application.ScreenUpdating = False

    ' 여러 파일을 선택할 수 있도록 MultiSelect를 True로 설정합니다.
    Files = Application.GetOpenFilename(filefilter:="Excel Files,*.xls;*.xlsx;*.xlsm;*.csv", Title:="파일선택", MultiSelect:=True)

    ' 사용자가 파일을 선택하지 않았을 경우를 처리합니다.
    If VarType(Files) = vbBoolean Then
        MsgBox "파일 선택이 취소되었습니다."
        Exit Sub
    End If

    ' 선택한 모든 파일에 대해 반복합니다.
    For Each fName In Files
        Set wb = Workbooks.Open(Filename:=fName, UpdateLinks:=0)

        ' 현재 활성화된 시트를 인쇄합니다.
        ActiveSheet.PrintOut

        wb.Close False
    Next fName

    Application.ScreenUpdating = True
    Set wb = Nothing
End Sub

이렇게 처리하였습니다. 도움을 주셔서 감사합니다.

Sub test()
 
    Dim fName As String
    Dim Files As String
    Dim wb As Workbook, ws As Worksheet
 
 
    Application.ScreenUpdating = False
 
Files = Application.GetOpenFilename(filefilter:="Excel Files,*.xls;*.xlsx;*.xlsm;*.csv", Title:="파일선택", MultiSelect:=True)
 
    fName = Dir(Files & "*.xls")
 
    If fName = "" Then
        MsgBox "폴더에 파일이 없습니다"
        Exit Sub
    End If
 
    Do While fName <> ""
        Set wb = Workbooks.Open(Filename:=fName, UpdateLinks:=0)
        ActiveSheet.PrintOut
        wb.Close False
        fName = Dir()
    Loop
 
    Application.ScreenUpdating = True
 
    Set wb = Nothing
 
End Sub

이렇게 수정하여 진행하면 되는건가요??