Excel vba named range exists

Function NamedRangeExist(ByRef pWorkBook As Workbook, pName As String) As Boolean
    Dim nName As Name
    For Each nName In pWorkBook.Names
        If nName.Name = pName Then
            NamedRangeExist = True
            Exit Function
        End If
    Next nName
End Function

Similar codes

0 vote222 views1 answer
Vba exit while
VBA
1 vote216 views1 answer
Change the first item in a queue vb.net
VBA
31 votes498 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote226 views1 answer
Weekday vba
VBA
0 vote208 views1 answer
How to extract a file from an ISO:
VBA
32 votes507 views2 answers
Excel vba column letter
VBA
3 votes243 views2 answers
Vba date to string
VBA
0 vote230 views1 answer
Excel R1C1 mode
VBA
0 vote210 views1 answer
Excel vba calculate
VBA
0 vote219 views1 answer
Supprimer la valeur de celule vba
VBA