Hej hej

Fixade till din kod lite, och lade till att filnamn och blad skrivs till cell i litterablad. Du behöver infoga en figur på litterabladet och högerklicka på den, för att koppla makro till den. Följ därefter instruktionerna i kommenterad kod:

Private NR As Long

Public Sub CopySheets()

    'ändra till namnet på bladet där du har littera (index)

    Dim wsLittera As Worksheet: Set wsLittera = Worksheets("Littera")

    Dim i As Long

    'Alla bladnamn som ska klonas ska stå i arrayen

    Dim arr As Variant: arr = Array("U", "S", "T")

    Dim copiedWs As Worksheet

    'Cell som håller koll på numrering, i detta fall cell A1 på litterabladet

    NR = wsLittera.Range("A1")

    Dim lastusedCell As Range

    For i = 0 To UBound(arr, 1)        

        Sheets(arr(i)).Copy After:=Worksheets(Sheets.Count)

        Set copiedWs = ActiveSheet

        On Error GoTo Errhandler

            copiedWs.Name = arr(i) & NR

        On Error GoTo 0

        'Sista cell i litterablad som har data, + en nedåt (tom cell)

        Set lastusedCell = wsLittera.Range("A1000").End(xlUp).Offset(1, 0)

        'Skriver ut filnamn och bladnamn till litterablad

        lastusedCell = ThisWorkbook.FullName & "\" & copiedWs.Name & "!"

    Next i

wsLittera.Select

Exit Sub

Errhandler:

    NR = NR + 1

    wsLittera.Range("A1") = NR

    copiedWs.Name = arr(i) & NR

    Resume Next    

End Sub