Abriendo Un Archivo Siempre Diferente

[LANDA59]

Hola a todos

Estoy trabajando con 9 archivos de .txt con nombres diferentes los cuales exporto a excel y verifico sus valores, mi secuencia abre el archivo DJ010, y en el mismo libro agrego una hoja o tantas necesite,termino de trabajar y guardo mi archivo trabajado.

Ahora mi problema esta en que si quiero ejecutar el segundo archivo DJ020 mi secuencia se detiene porque no encuentra en el libro activo la hoja DJ010 en la cual se supone se situa para agregar la nueva hoja..porque ya en este caso es DJ020

alguien me puede ayudar?

desde ya graciasss!!

Código:

Sub prueba()
      
    Application.ScreenUpdating = False
     Dim path As Variant
    path = Application.GetOpenFilename
    If path = False Then
    MsgBox "No selecciono ningun archivo"
    Else
        
  
    Workbooks.OpenText Filename:=path, _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 2), Array(13, 2), Array(18, 2), Array(21, 2), Array(23, 1), Array(24, 1), Array(29 _
        , 2), Array(32, 1), Array(70, 1), Array(84, 1), Array(86, 1)), TrailingMinusNumbers:= _
        True
  
    
   Sheets("DJ010").Select
   Sheets.Add
   End If
   
End Sub