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

8 votes203 views1 answer
Vba make integer
VBA
5 votes485 views1 answer
Vlookup vba
VBA
0 vote161 views1 answer
Vba option button selected
VBA
3 votes217 views1 answer
Vba continue for each loop
VBA
0 vote184 views1 answer
Excel vba combine ranges
VBA
0 vote194 views1 answer
If statement vdhl
VBA
0 vote178 views1 answer
How to set location and size of new from vb
VBA
0 vote180 views1 answer
Regex numeric digits
VBA
0 vote164 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote168 views1 answer
Vba pass named range to function
VBA