Deleting Objects all at once - (copied HTML to excel)
 

I have an html table that I copy pasted to excel. But it has a lot extra
objects like picutes and form drop down fields. (I tried paste special text
but the column spacing is lost and numbers run into each other no telling
where one cell begins and the other ends).

Is there a way to delete all objects quickly / with one action?
--
--coastal

Deleting Objects all at once - (copied HTML to excel)
 

a couple

Sub ShapesCut()
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub
'or
Sub shapescut1() 'Tom Ogilvy
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

--
Don Guillett
SalesAid Software

"coastal" wrote in message
...
I have an html table that I copy pasted to excel. But it has a lot extra
objects like picutes and form drop down fields. (I tried paste special
text
but the column spacing is lost and numbers run into each other no telling
where one cell begins and the other ends).

Is there a way to delete all objects quickly / with one action?
--
--coastal

Deleting Objects all at once - (copied HTML to excel)
 

Non VBA:
Edit/Goto Special/Objects, OK, then press Delete key.
Bob Umlas
Excel MVP

"coastal" wrote in message
...
I have an html table that I copy pasted to excel. But it has a lot extra
objects like picutes and form drop down fields. (I tried paste special
text
but the column spacing is lost and numbers run into each other no telling
where one cell begins and the other ends).

Is there a way to delete all objects quickly / with one action?
--
--coastal

Deleting Objects all at once - (copied HTML to excel)
 

thanks! works great!
--
--coastal


"Bob Umlas" wrote:

Non VBA:
Edit/Goto Special/Objects, OK, then press Delete key.
Bob Umlas
Excel MVP

"coastal" wrote in message
...
I have an html table that I copy pasted to excel. But it has a lot extra
objects like picutes and form drop down fields. (I tried paste special
text
but the column spacing is lost and numbers run into each other no telling
where one cell begins and the other ends).

Is there a way to delete all objects quickly / with one action?
--
--coastal

Deleting Objects all at once - (copied HTML to excel)
 

Thanks that second one worked for me!
--
--coastal


"Don Guillett" wrote:

a couple

Sub ShapesCut()
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub
'or
Sub shapescut1() 'Tom Ogilvy
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

--
Don Guillett
SalesAid Software

"coastal" wrote in message
...
I have an html table that I copy pasted to excel. But it has a lot extra
objects like picutes and form drop down fields. (I tried paste special
text
but the column spacing is lost and numbers run into each other no telling
where one cell begins and the other ends).

Is there a way to delete all objects quickly / with one action?
--
--coastal