Reply to thread

Message: [QUOTE="zz, post: 3679334"] Not repro!! but try this correction as well it can be caused by the OlObj being setted to nothing at the end of the code Private Sub deleteobjects() Dim s As Worksheet, chrt As ChartObject, shp As Shape Set s = ActiveSheet Dim olObj As OLEObject With s For Each shp In .Shapes .Shapes(.Shapes.Count).Delete Next For Each chrt In ChartObjects .ChartObjects(.ChartObjects.Count).Delete Next For Each olObj In .OLEObjects .OLEObjects(.OLEObjects.Count).Delete Next End With Set s = Nothing err.clear Set olObj = Nothing Set chrt = Nothing Set shp = Nothing End Sub -- --- zz [MX] cuasi-musico,semi-poeta y loco zz ¼g¹D¡G I put the above code into Excel macro sub. It ran and deleted objects but it also returned error "424 object needed here". Debugger pointed at the line "For Each olObj In .OLEObjects" [/QUOTE]