I have some xl files that have many macros in them. For
example 20 xl files with 10 macros in each file. I have
to give a final version of the files to management. I do
not want management to see my macros...the macros are my
edge.

I have the following macro in it's own xl file that I use
to delete the macros in the other files before I save the
xl files in management's directory.

Sub zzzDeleteMacros()
Dim vStop As Double
vStop = 0
Do Until vStop = 50
Application.SendKeys Keys:="%tmm", Wait:=False
Application.SendKeys Keys:="%D", Wait:=False
Application.SendKeys Keys:="Y", Wait:=False
vStop = vStop + 1
Loop
End Sub

This works fine except that it also will delete the macro
zzzDeleteMacros(). Then I just do not save the delete
macro file. It's name is zzzDeleteMacros() because I want
it to be the last macro in the list of approx 200 or more
macros.

Is there a way to ask the name of the macro selected in
the Macro Run Dialog box so that when it gets to
zzzDeleteMacros() I can show a message "Process Complete"
and then Exit Sub.

Thank you for your help.

Steven

Two points.

If you develop code in work time, it is the company 's property not yours?

If the final files do not need the macros, why put them there? Why not just
store them in an other file so that you can use when developing?

--
HTH

-------

Bob Phillips
"Steven" wrote in message
...
I have some xl files that have many macros in them. For
example 20 xl files with 10 macros in each file. I have
to give a final version of the files to management. I do
not want management to see my macros...the macros are my
edge.

I have the following macro in it's own xl file that I use
to delete the macros in the other files before I save the
xl files in management's directory.

Sub zzzDeleteMacros()
Dim vStop As Double
vStop = 0
Do Until vStop = 50
Application.SendKeys Keys:="%tmm", Wait:=False
Application.SendKeys Keys:="%D", Wait:=False
Application.SendKeys Keys:="Y", Wait:=False
vStop = vStop + 1
Loop
End Sub

This works fine except that it also will delete the macro
zzzDeleteMacros(). Then I just do not save the delete
macro file. It's name is zzzDeleteMacros() because I want
it to be the last macro in the list of approx 200 or more
macros.

Is there a way to ask the name of the macro selected in
the Macro Run Dialog box so that when it gets to
zzzDeleteMacros() I can show a message "Process Complete"
and then Exit Sub.

Thank you for your help.

Steven

Heres two more points.
First of all I did not say I did this on company's
time...DID I. Second I barely have enought time to do my
work so if I create things ...ON MY OWN TIME...then I
guess it is my property....ISNT IT!!!!!

-----Original Message-----
Two points.

If you develop code in work time, it is the company 's
property not yours?

If the final files do not need the macros, why put them
there? Why not just
store them in an other file so that you can use when
developing?

--
HTH

-------

Bob Phillips
"Steven" wrote in
message
...
I have some xl files that have many macros in them. For
example 20 xl files with 10 macros in each file. I have
to give a final version of the files to management. I
do
not want management to see my macros...the macros are my
edge.

I have the following macro in it's own xl file that I
use
to delete the macros in the other files before I save
the
xl files in management's directory.

Sub zzzDeleteMacros()
Dim vStop As Double
vStop = 0
Do Until vStop = 50
Application.SendKeys Keys:="%tmm", Wait:=False
Application.SendKeys Keys:="%D", Wait:=False
Application.SendKeys Keys:="Y", Wait:=False
vStop = vStop + 1
Loop
End Sub

This works fine except that it also will delete the
macro
zzzDeleteMacros(). Then I just do not save the delete
macro file. It's name is zzzDeleteMacros() because I
want
it to be the last macro in the list of approx 200 or
more
macros.

Is there a way to ask the name of the macro selected in
the Macro Run Dialog box so that when it gets to
zzzDeleteMacros() I can show a message "Process
Complete"
and then Exit Sub.

Thank you for your help.

Steven





.

Touch a raw nerve?

--
HTH

-------

Bob Phillips
"Steven" wrote in message
...
Heres two more points.
First of all I did not say I did this on company's
time...DID I. Second I barely have enought time to do my
work so if I create things ...ON MY OWN TIME...then I
guess it is my property....ISNT IT!!!!!

-----Original Message-----
Two points.

If you develop code in work time, it is the company 's
property not yours?

If the final files do not need the macros, why put them
there? Why not just
store them in an other file so that you can use when
developing?

--
HTH

-------

Bob Phillips
"Steven" wrote in
message
...
I have some xl files that have many macros in them. For
example 20 xl files with 10 macros in each file. I have
to give a final version of the files to management. I
do
not want management to see my macros...the macros are my
edge.

I have the following macro in it's own xl file that I
use
to delete the macros in the other files before I save
the
xl files in management's directory.

Sub zzzDeleteMacros()
Dim vStop As Double
vStop = 0
Do Until vStop = 50
Application.SendKeys Keys:="%tmm", Wait:=False
Application.SendKeys Keys:="%D", Wait:=False
Application.SendKeys Keys:="Y", Wait:=False
vStop = vStop + 1
Loop
End Sub

This works fine except that it also will delete the
macro
zzzDeleteMacros(). Then I just do not save the delete
macro file. It's name is zzzDeleteMacros() because I
want
it to be the last macro in the list of approx 200 or
more
macros.

Is there a way to ask the name of the macro selected in
the Macro Run Dialog box so that when it gets to
zzzDeleteMacros() I can show a message "Process
Complete"
and then Exit Sub.

Thank you for your help.

Steven





.

I don't mind answering questions on this website or
sharing code here (I really dont know how good I am
because I see there are a lot of hard core coders here).
But I will never give my code to the people above me who
are nothing but oppressors and want want and want more and
want to be spoon-fed and for your efforts they give you
squat.

I am glad you responded like that because that was funny.

As someone who gives code away, and someone who uses lots of very
high-quality free code, I feel very un-protective of my code. Also, we
either believe in market economies or we don't, I don't find much value in
pushing against them in such a small way.

Anyway, I am glad you found my response amusing. I also found your initial
response funny, so we end better than we started,

BTW, my second point still seems viable to me.

--
HTH

-------

Bob Phillips
"Steven" wrote in message
...
I don't mind answering questions on this website or
sharing code here (I really dont know how good I am
because I see there are a lot of hard core coders here).
But I will never give my code to the people above me who
are nothing but oppressors and want want and want more and
want to be spoon-fed and for your efforts they give you
squat.

I am glad you responded like that because that was funny.