Thanks again,
But after copying your code as is nothing happened, I remove the on error line and it fails on...
Code:
For Each oName In ActiveWorkbook.Names
Set oRng = Range(oName.Name)
hovering over range, it shows the oname.name = <method 'range' of "object_global' failed>
hovering over oname shows it as oName.Name = "_xlfn.COUNTIFS"
oRng = nothing
perhaps oName is not pickup any names in the Activewookbook.Names