Public Function DeleteBadRange() As Boolean On Error GoTo ErrorTrap Dim wksWorksheet As Worksheet Dim rngNamed As Name 'For Each wksWorksheet In ThisWorkbook.Worksheets For Each rngNamed In ThisWorkbook.Names 'If InStr(rngNamed.RefersTo, ":\") > 0 Then 'If InStr(rngNamed.RefersTo, "\\") > 0 Then 'If InStr(rngNamed.RefersTo, "#REF") > 0 Then 'If InStr(rngNamed.RefersTo, "Break") > 0 Then 'If InStr(rngNamed.RefersTo, "Cross") > 0 Then Debug.Print rngNamed.Name Debug.Print rngNamed.RefersTo 'rngNamed.Delete 'End If Next rngNamed TMG_DeletedBadRange = True ExitFx: If IsObject(wksWorksheet) Then Set wksWorksheet = Nothing If IsObject(rngNamed) Then Set rngNamed = Nothing Exit Function ErrorTrap: Debug.Print Err.Number, Err.Description GoTo ExitFx End Function