Guru do Excel e Power BI

Option Explicit
'Código de OsvaldoMp em outro fórum. Adaptado por Bruno Abdalla de Souza (babdallas)
'para uma dúvida do Fórum do Guru do Excel em 20/05/2018
Sub DeletaArquivoMaisRecente()
    Dim arqSys As Object
    Dim objArq As Object
    Dim minhaPasta
    Dim nomeArq As String
    Dim dataArq As Date
    Dim strLinkAtual As String
          Const Diret As String = "C:\Users\Bruno\Desktop"
          Set arqSys = CreateObject("Scripting.FileSystemObject")
          Set minhaPasta = arqSys.GetFolder(Diret)
          dataArq = DateSerial(1900, 1, 1)
    For Each objArq In minhaPasta.Files
        If objArq.Path <> ThisWorkbook.FullName And Left(objArq.Path, 1) <> "~" Then
            If objArq.DateLastModified > dataArq Then
                dataArq = objArq.DateLastModified
                nomeArq = objArq
            End If
        End If
    Next objArq
    
    Kill objArq
End Sub