Seznam Referencí

Makro vytvoří nový list v sešitu a na něj vypíše seznam referencí.

Sub ListOfReferences()

Rem Makro zapisuje do nového listu seznam referencí

    On Error Resume Next

    Dim i As Long

    Dim NewSheet As Object

    Dim myR As Range

    Dim myNamesArr As Variant

    myNamesArr = Array("Název", "Cesta", "Reference ID")

    ActiveWorkbook.Sheets.Add Before:=Worksheets(1)

    Set NewSheet = ActiveWorkbook.Sheets(1)

    NewSheet.Name = "reference" & ActiveWorkbook.Sheets.Count

    Set myR = NewSheet.Range("A1")

    For i = 0 To 2

        With myR.Offset(0, i)

            .Value = myNamesArr(i)

            .Font.Bold = True

            .Interior.ColorIndex = 15

            .Interior.Pattern = xlSolid

        End With

    Next i

    For i = 1 To ThisWorkbook.VBProject.References.Count

        With ThisWorkbook.VBProject.References(i)

            myR.Offset(i, 0) = .Name

            myR.Offset(i, 1) = .FullPath

            myR.Offset(i, 2) = .GUID

        End With

    Next i

    On Error GoTo 0

    Columns("A:C").EntireColumn.AutoFit

End Sub