Capture the "Last Modifed" date from FilePicker

[snb]

Sub M_snb()
   With Application.FileDialog(3)
      .InitialFileName = "G:\OF\*.xls"
      .Show
      Cells(1) = FileDateTime(.SelectedItems(1))
    End With
End Sub