Excel VBA Macro: Open Newest File (In User Selected Folder)

Excel VBA Macro: Open Newest File (In User Selected Folder). In this video, we go over how to automatically find and open the latest file in a user selected folder. Code (YouTube doesn&allow brackets; so LT and GT are used for less than and greater than, respectively): Sub newest_file_in_folder() Dim FldrPicker As FileDialog Dim myPath As String Dim myFile As String Dim newestFile As String Dim newestDate As Date Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title = "Please Select Folder" .AllowMultiSelect = False .ButtonName = "Confirm" If .Show = -1 Then myPath = .SelectedItems(1) & "" Else End End If End With myFile = Dir(myPath) newestFile = myFile On Error GoTo noFiles newestDate = FileDateTime(myPath & myFile) Do While myFile LTGT "" If FileDateTime(myPath & myFile) GT newestDate Then newestFile = myFile newestDate = FileDateTime(myPath & myFile) End If myFile = Dir Loop Workbooks.Open Filename:=myPath & newestFile End noFiles: MsgBox "There are no items in this folder." End Sub #ExcelMacro