Private Function GetNamedRange(ByVal parentSheet As String, ByVal namedRange As String) As Name
If TypeOf ThisWorkbook.Names(namedRange).Parent Is Workbook Then
Set GetNamedRange = ThisWorkbook.Names(namedRange)
Else
Set GetNamedRange = ThisWorkbook.Worksheets(parentSheet).Names(namedRange)
End If
End Function