Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("K3:K500")) Is Nothing Then
        Target.Value = Date & Chr(10) & "(" & Target.Value & ")"
    End If
End Sub

Private Sub UserForm_Initialize()
Dim oRange As Range
Set oRange = oRange.SpecialCells(xlCellTypeConstants)
Set oRange = Sheets("List1").Range("$C$3:$C$500").Value
ListBox1.List = oRange
End Sub 

Private Sub Workbook_Open()
    Application.Calculation = xlCalculationManual
End Sub 

    Path = "папка_к_папке\"
    Name = Dir(Path & "Часть_названия_файла*.часть_расширения_файла*")
Do
      dt = FileDateTime(Path & Name)
      If dtmax < dt Then
        dtmax = dt
        maxname = Name
     End If
     Name = Dir
Loop Until Name = ""
Workbooks.Open (Path & maxname)
...
Application.CutCopyMode = False
ActiveWindow.Close

Sub Макрос3()
'
' Макрос3 макрос
'
' Сочетание клавиш: Ctrl+е
'
Path = "C:\Users\a\Documents\OutTMP\"
Name = Dir(Path & "Книга2тес*.xl*")
Do
      dt = FileDateTime(Name)
      If dtmax < dt Then
        dtmax = dt
        maxname = Name
     End If
     Name = Dir
Loop Until Name = ""
End Sub