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