Hi all,

I have a series of names defined as

defMac1
defMac2
defMac3
....
defMac18
I'll like to write a code to look for each name and do other code,
everything inside a loop.
Something similar to:

Sub defmac()
Dim n As Name
Dim x as Integer
x = 1
For Each n In ActiveWorkbook.Names.Item(defMac(x))
i=i+1
x=x+1
Next n
Msgbox i
End Sub

Of course this code doesn't work , but hope you get the idea. Anny ideas.

Thanks.