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!

enter image description here

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

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

google shop client API returns 400 bad request error while adding an item -