Names.Add Name:="СуммаНалог", RefersTo:="=SUM(Лист1!$B$5:$B$10)", Visible:=False
Names.Add Name:="СуммаВзятка", RefersToLocal:="=СУММ(Лист1!$C$5:$C$10)", Visible:=False
Для того чтобы скрыть уже существующее имя, используйте этот код:
Names("СуммаНалог").Visible = False
Names("СуммаВзятка").Visible = False