How to get rid of web page objects ?
try this code
but be advised, it deletes any Ole object inserted in the sheet, it doesn't
matter wath type is it
here's the code
Private Sub deleteobjects()
Dim s As Sheet1
Set s = ActiveSheet
Dim olObj As OLEObject
With s
For Each olObj In .OLEObjects
..OLEObjects(.OLEObjects.Count).Delete
Next
End With
set s= nothing
set OlObj=nothing
End Sub
--
hope this works!
---
zz [MX]
cuasi-musico,semi-poeta y loco
"come_mon_come_mon!" wrote in message
ups.com...
Gary''s Student ¼g¹D¡G
Using VBA:
Cells.Hyperlinks.Delete
ActiveSheet.Pictures.Delete
--
Gary's Student
YEAH !!! IT WORKS WITH URL LINKS !!!!! NOW ONLY THE CHECK BOXES WERE
LEFT REMAINED UNCLEARED :)
|