Janela Salvar como

Sub AleVBA_857()
    Dim fs As FileSearch, ws As Worksheet, i As Long
    Dim loc As Long, fdt As Double
    Set fs = Application.FileSearch
    With fs
        .SearchSubFolders = False 'Mude para True caso inclua sub diretótio
        .FileType = msoFileTypeExcelWorkbooks
        .LookIn = "C:\Users\Administrador\Downloads\MuArquivo" 'Modifique para o caminho que desejar
        If .Execute > 0 And .FoundFiles.Count > 0 Then
            loc = 0
            For i = 1 To .FoundFiles.Count
                If FileDateTime(.FoundFiles(i)) > fdt Then loc = i
            Next i
            Workbooks.Open .FoundFiles(loc)
        Else
            MsgBox "Arquivos não encontrados"
        End If
    End With
End Sub