Sub paso00()
    ChDir _
        "D:\Auval\Dropbox\CD de cursos\EXCEL\Curso de Macros Prácticas\Archivos para practicar"
    Workbooks.OpenText Filename:= _
        "D:\Auval\Dropbox\CD de cursos\EXCEL\Curso de Macros Prácticas\Archivos para practicar\Texto sin formato 1.txt" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
        , TrailingMinusNumbers:=True
    Application.Run "Personal!Paso01"
    Application.Run "Personal!Paso02"
    Application.Run "Personal!Paso03"
End Sub
