Excel Functions

Table A -  Overview

#

Title

Line

1

sdf sadf

38

2

List all (names) names in a workbook

44

Table B - (Code) Details

#

Details

1

sdf sadf

Top

2

List all (names) names in a workbook

Top

line is the linenumber to start list with (auto increment)

Function ListNames(line As Integer)

Dim WB_Analyzed As String

WB_Analyzed = ActiveWorkbook.Name

'Heading names + formatting

Windows("Report.xls").Activate

Cells(line, 1).Value = "Name"

Cells(line, 2).Value = "Reference"

Range(Cells(line, 1), Cells(line, 2)).Select

Selection.Font.Bold = True

With Selection.Interior

.ColorIndex = 15

.Pattern = xlSolid

End With

'Fill Data

line = line + 1

Windows(WB_Analyzed).Activate

For Each n In ActiveWorkbook.Names

Windows("Report.xls").Activate

Cells(line, 1) = n.Name

Cells(line, 2) = " " & n.RefersTo

line = line + 1

Workbooks(WB_Analyzed).Activate

Next n

'Check if

If ActiveWorkbook.Names.count = 0 Then

Workbooks(WB_Analyzed).Activate

Cells(line, 1) = "<NO NAMES USED>"

End If

ListNames = line

End Function