macro list of name ranges includes some i dont want

[KDS14589]

I have a macro for listing all name ranges in active workbook when a certain worksheet is activated. the code is

Sub Rprt()
Dim nm As Name, n As Long, y As RANGE, z As Worksheet
Application.ScreenUpdating = False
Set z = ActiveSheet
n = 8
With z
    .[a5:O155].ClearContents
    .[a7] = [{"Name"}]
    For Each nm In ActiveWorkbook.Names
        .Cells(n, 2) = nm.Name
        
        n = n + 1
    Next nm
End With
End Sub

but it list 4 that I don't want
_xlfn.AGGREGATE
_xlfn.COUNTIFS
_xlfn.IFERROR
_xlfn.SUMIFS
what can I do to stop listing them?

 

[OaklandJim]

Unsatisfying and inelegant but just screen them out using Like? Something along the lines of

If Not nm Like "_xlfn*"

 

[Fluff]

How about

    For Each nm In ActiveWorkbook.Names
        If Left(nm.Name, 5) <> "_xlfn" Then
            .Cells(n, 2) = nm.Name
            n = n + 1
        End If
    Next nm

 

[DanteAmor]

Check if the values ​​also appear with this.

Sub test()
  Range("B8").ListNames
End Sub

 

[KDS14589]

That worked
THANKS

 

[Fluff]

Glad we could help & thanks for the feedback