Sub paso00()
    Workbooks.OpenText Filename:= _
        Application.GetOpenFilename _
        , 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
