Macro to delete various pictures and hyper-link picture icons
 

I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all of this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also deleted
those buttons. Is there something else I could use on the sheet (like a macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Since I almost always use shapes from the drawing toolbar and leave the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also deleted
those buttons. Is there something else I could use on the sheet (like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

I didn't realize you could assign a macro to shape from the drawing toolbar.
And it worked, however, the shape also prints. My buttons didn't, which is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also deleted
those buttons. Is there something else I could use on the sheet (like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures and
hyper-link picture icons. Is there a macro I could run to delete all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

If you click on the rectangle and look in the NAME box to the left of the
formula box you will see the name of the shape. You may go there and name it
whatever you like such as joe1, bill2, etc. IF named Rectangle 1 then my
macro should have worked.

Right click on the shape until you see a many optioned menuselect format
auto shape propertiesunclick print.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I didn't realize you could assign a macro to shape from the drawing
toolbar.
And it worked, however, the shape also prints. My buttons didn't, which is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also
deleted
those buttons. Is there something else I could use on the sheet (like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures
and
hyper-link picture icons. Is there a macro I could run to delete
all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Yes, it definitely worked, and much appreciated. Also the unprint.
I guess you can't re-name the buttons to rectangle, because I wanted to try
to use it that way. I even tried to reword your macro, replacing rectangle to
button, but I couldn't it to work.
Thanks agian for all your help.

Steve

"Don Guillett" wrote:

If you click on the rectangle and look in the NAME box to the left of the
formula box you will see the name of the shape. You may go there and name it
whatever you like such as joe1, bill2, etc. IF named Rectangle 1 then my
macro should have worked.

Right click on the shape until you see a many optioned menuselect format
auto shape propertiesunclick print.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I didn't realize you could assign a macro to shape from the drawing
toolbar.
And it worked, however, the shape also prints. My buttons didn't, which is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also
deleted
those buttons. Is there something else I could use on the sheet (like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures
and
hyper-link picture icons. Is there a macro I could run to delete
all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Of course you can rename. I assume you have a button from the FORMS toolbar.
Select itin the NAME box to the left of the formula box type in whatever
you desire.

BTW Button is NOT 9 characters, is it?

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Yes, it definitely worked, and much appreciated. Also the unprint.
I guess you can't re-name the buttons to rectangle, because I wanted to
try
to use it that way. I even tried to reword your macro, replacing rectangle
to
button, but I couldn't it to work.
Thanks agian for all your help.

Steve

"Don Guillett" wrote:

If you click on the rectangle and look in the NAME box to the left of the
formula box you will see the name of the shape. You may go there and name
it
whatever you like such as joe1, bill2, etc. IF named Rectangle 1 then my
macro should have worked.

Right click on the shape until you see a many optioned menuselect format
auto shape propertiesunclick print.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I didn't realize you could assign a macro to shape from the drawing
toolbar.
And it worked, however, the shape also prints. My buttons didn't, which
is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving
the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave
the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also
deleted
those buttons. Is there something else I could use on the sheet
(like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures
and
hyper-link picture icons. Is there a macro I could run to
delete
all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Don,

Thanks so much for all your help and patience. I really apprecaite it.
Always learning.
I was able to re-name it the button now. Maybe my older home Excel version
did not allow it. And by naming that form button rectangle, it worked great.
One thing I'm still a bit confused about.
is the macro not deleting the "rectangle' because the macro is indicating:...
if it is not named rectangle ( the <) or not deleting it because it's 9
characters.
Or are both needed ?
or .??????

Thanks again,

Steve

"Don Guillett" wrote:

Of course you can rename. I assume you have a button from the FORMS toolbar.
Select itin the NAME box to the left of the formula box type in whatever
you desire.

BTW Button is NOT 9 characters, is it?

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Yes, it definitely worked, and much appreciated. Also the unprint.
I guess you can't re-name the buttons to rectangle, because I wanted to
try
to use it that way. I even tried to reword your macro, replacing rectangle
to
button, but I couldn't it to work.
Thanks agian for all your help.

Steve

"Don Guillett" wrote:

If you click on the rectangle and look in the NAME box to the left of the
formula box you will see the name of the shape. You may go there and name
it
whatever you like such as joe1, bill2, etc. IF named Rectangle 1 then my
macro should have worked.

Right click on the shape until you see a many optioned menuselect format
auto shape propertiesunclick print.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I didn't realize you could assign a macro to shape from the drawing
toolbar.
And it worked, however, the shape also prints. My buttons didn't, which
is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving
the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave
the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also
deleted
those buttons. Is there something else I could use on the sheet
(like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various pictures
and
hyper-link picture icons. Is there a macro I could run to
delete
all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

It's asking if the 1st 9 characters= rectangle which is 9 characters
you could have named it Joe and said if "joe" or 1st 3 chs ="Joe"
or.............

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Don,

Thanks so much for all your help and patience. I really apprecaite it.
Always learning.
I was able to re-name it the button now. Maybe my older home Excel version
did not allow it. And by naming that form button rectangle, it worked
great.
One thing I'm still a bit confused about.
is the macro not deleting the "rectangle' because the macro is
indicating:...
if it is not named rectangle ( the <) or not deleting it because it's 9
characters.
Or are both needed ?
or .??????

Thanks again,

Steve

"Don Guillett" wrote:

Of course you can rename. I assume you have a button from the FORMS
toolbar.
Select itin the NAME box to the left of the formula box type in whatever
you desire.

BTW Button is NOT 9 characters, is it?

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Yes, it definitely worked, and much appreciated. Also the unprint.
I guess you can't re-name the buttons to rectangle, because I wanted to
try
to use it that way. I even tried to reword your macro, replacing
rectangle
to
button, but I couldn't it to work.
Thanks agian for all your help.

Steve

"Don Guillett" wrote:

If you click on the rectangle and look in the NAME box to the left of
the
formula box you will see the name of the shape. You may go there and
name
it
whatever you like such as joe1, bill2, etc. IF named Rectangle 1 then
my
macro should have worked.

Right click on the shape until you see a many optioned menuselect
format
auto shape propertiesunclick print.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I didn't realize you could assign a macro to shape from the drawing
toolbar.
And it worked, however, the shape also prints. My buttons didn't,
which
is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving
the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my
rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being
deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave
the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also
deleted
those buttons. Is there something else I could use on the sheet
(like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various
pictures
and
hyper-link picture icons. Is there a macro I could run to
delete
all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

Here is a sub I use to name the caption in the shapes from a list on my
setup sheet

Sub NameShapes()
For Each c In [setup!a4:a15]
sheets("yoursheet").Shapes(c).TextFrame. _
Characters.Text = c.Offset(0, 1)
Next c
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Don,

Thanks so much for all your help and patience. I really apprecaite it.
Always learning.
I was able to re-name it the button now. Maybe my older home Excel version
did not allow it. And by naming that form button rectangle, it worked
great.
One thing I'm still a bit confused about.
is the macro not deleting the "rectangle' because the macro is
indicating:...
if it is not named rectangle ( the <) or not deleting it because it's 9
characters.
Or are both needed ?
or .??????

Thanks again,

Steve

"Don Guillett" wrote:

Of course you can rename. I assume you have a button from the FORMS
toolbar.
Select itin the NAME box to the left of the formula box type in whatever
you desire.

BTW Button is NOT 9 characters, is it?

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Yes, it definitely worked, and much appreciated. Also the unprint.
I guess you can't re-name the buttons to rectangle, because I wanted to
try
to use it that way. I even tried to reword your macro, replacing
rectangle
to
button, but I couldn't it to work.
Thanks agian for all your help.

Steve

"Don Guillett" wrote:

If you click on the rectangle and look in the NAME box to the left of
the
formula box you will see the name of the shape. You may go there and
name
it
whatever you like such as joe1, bill2, etc. IF named Rectangle 1 then
my
macro should have worked.

Right click on the shape until you see a many optioned menuselect
format
auto shape propertiesunclick print.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I didn't realize you could assign a macro to shape from the drawing
toolbar.
And it worked, however, the shape also prints. My buttons didn't,
which
is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving
the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my
rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being
deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave
the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also
deleted
those buttons. Is there something else I could use on the sheet
(like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various
pictures
and
hyper-link picture icons. Is there a macro I could run to
delete
all
of
this
extraneous stuff ?

Thanks,

Steve

Macro to delete various pictures and hyper-link picture icons
 

OK.
Much thanks for all your help and patience. I think I have it now.

Thanks again,
Steve

"Don Guillett" wrote:

It's asking if the 1st 9 characters= rectangle which is 9 characters
you could have named it Joe and said if "joe" or 1st 3 chs ="Joe"
or.............

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Don,

Thanks so much for all your help and patience. I really apprecaite it.
Always learning.
I was able to re-name it the button now. Maybe my older home Excel version
did not allow it. And by naming that form button rectangle, it worked
great.
One thing I'm still a bit confused about.
is the macro not deleting the "rectangle' because the macro is
indicating:...
if it is not named rectangle ( the <) or not deleting it because it's 9
characters.
Or are both needed ?
or .??????

Thanks again,

Steve

"Don Guillett" wrote:

Of course you can rename. I assume you have a button from the FORMS
toolbar.
Select itin the NAME box to the left of the formula box type in whatever
you desire.

BTW Button is NOT 9 characters, is it?

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Yes, it definitely worked, and much appreciated. Also the unprint.
I guess you can't re-name the buttons to rectangle, because I wanted to
try
to use it that way. I even tried to reword your macro, replacing
rectangle
to
button, but I couldn't it to work.
Thanks agian for all your help.

Steve

"Don Guillett" wrote:

If you click on the rectangle and look in the NAME box to the left of
the
formula box you will see the name of the shape. You may go there and
name
it
whatever you like such as joe1, bill2, etc. IF named Rectangle 1 then
my
macro should have worked.

Right click on the shape until you see a many optioned menuselect
format
auto shape propertiesunclick print.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I didn't realize you could assign a macro to shape from the drawing
toolbar.
And it worked, however, the shape also prints. My buttons didn't,
which
is
what I'd prefer.
Also, I don't understand what you're referring to regarding 'leaving
the
names alone'.
I was also hoping that seeing the 'delete non-rectangle', my
rectangle
button would not have been deleted, but it still was deleted.
Can the printing of the drawing toolbar shape be supressed ?
Or is there a way with 'names' to prevent a button from being
deleted ?

Thanks again,

Steve

"Don Guillett" wrote:

Since I almost always use shapes from the drawing toolbar and leave
the
names alone. Or, you could re-name those to keep and exclude those.

Sub deletenonrectangleshapes()
For Each s In ActiveSheet.Shapes
If Left(s.Name, 9) < "Rectangle" Then s.Delete
Next s
End Sub

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Well, now that you mention it......

Yes, I use forms\buttons that I assign my Macros to, and it also
deleted
those buttons. Is there something else I could use on the sheet
(like a
macro
button) that will run the macro but not be deleted ?

Thanks,

Steve

"Don Guillett" wrote:

Glad to help. Hope it didn't wipe out any shapes needed.

--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
Perfect !! And so simple.

Thanks.

"Don Guillett" wrote:

try
sub deleteshapes()
for each s in activesheet.shapes
s.delete
next s
end sub


--
Don Guillett
SalesAid Software

"Steve" wrote in message
...
I copy whole data sheets onto Excel. They have various
pictures
and
hyper-link picture icons. Is there a macro I could run to
delete
all
of
this
extraneous stuff ?

Thanks,

Steve