Nombres en hojas cargadas

[pajuma]

buen dia a todos, con esta macro cargo varios archivos planos de texto a excel,, mi pregunta es como haria para que el nombre de cada hoja solo tenga del caracter 7 al 15 , y solo extraiga 20 registros por cada hoja

Sub ExtaerArchivosPlanos()

    Dim FilesToOpen

    Dim x As Integer

    Dim wkbAll As Workbook

    Dim wkbTemp As Workbook

    Dim sDelimiter As String


    On Error GoTo ErrHandler

    Application.ScreenUpdating = False


    sDelimiter = "|"


    FilesToOpen = Application.GetOpenFilename _

      (FileFilter:="Text Files (*.txt), *.txt", _

      MultiSelect:=True, Title:="Text Files to Open")


    If TypeName(FilesToOpen) = "Boolean" Then

        MsgBox "No Files were selected"

        GoTo ExitHandler

    End If


    x = 1

    Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))

    wkbTemp.Sheets(1).Copy

    Set wkbAll = ActiveWorkbook

    wkbTemp.Close (False)

    wkbAll.Worksheets(x).Columns("A:A").TextToColumns _

      Destination:=Range("A1"), DataType:=xlDelimited, _

      TextQualifier:=xlDoubleQuote, _

      ConsecutiveDelimiter:=False, _

      Tab:=False, Semicolon:=True, _

      Comma:=True, Space:=False, _

      Other:=True, OtherChar:="|"

    x = x + 1


    While x <= UBound(FilesToOpen)

        Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))

        With wkbAll

            wkbTemp.Sheets(1).Move After:=.Sheets(.Sheets.Count)

            .Worksheets(x).Columns("A:A").TextToColumns _

              Destination:=Range("A1"), DataType:=xlDelimited, _

              TextQualifier:=xlDoubleQuote, _

              ConsecutiveDelimiter:=False, _

              Tab:=True, Semicolon:=True, _

              Comma:=True, Space:=False, _

              Other:=True, OtherChar:=sDelimiter

        End With

        x = x + 1

    Wend


ExitHandler:

    Application.ScreenUpdating = True

    Set wkbAll = Nothing

    Set wkbTemp = Nothing

    Exit Sub


ErrHandler:

    MsgBox Err.Description

    Resume ExitHandler

End Sub

[/CODE]

gracias