excel - VBA Clear cell names in range -
i need clear names of named cells within range before executing procedure.
i've tried following code no success far:
sub erasecellnames() worksheets("sheeta").range("a1:g5").select dim nname name each nname in names if not intersect(selection, range(nname.name)) nothing nname.delete end if next nname end sub
any ideas?
thanks in advance!
try one:
sub erasecellnames() dim nname name dim targetrng range set targetrng = worksheets("sheeta").range("a1:g5") each nname in thisworkbook.names if nname.validworkbookparameter if targetrng.parent.name = nname.referstorange.parent.name if not intersect(targetrng, nname.referstorange) nothing nname.delete end if end if next nname end sub
Comments
Post a Comment