Como hacer que que codigo recuerde ruta de donde extrae archivos

Te go el siguiente codigo pero al momento de ejecutar el macro me manda a una carpeta random y despues tengo que regresar. E a donde yo quiero sacar mi archivo, como hago que al ejecutarlo busque directo en determinada ruta.

Ub LeerNotePad()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    Set h1 = l1.ActiveSheet
    ruta = l1.Path & "\"
    ChDir ruta
    '
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo NotePad"
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .Filters.Add "Archivos Txt", "*.txt*"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = ruta