Very cool John,

Here it is

Sub deleteFrom_Sel()
Dim shpname As String
Dim osld As Slide
Dim i As Integer
shpname = InputBox("Paste Shape Name Here")
On Error Resume Next
For Each osld In ActiveWindow.Selection.SlideRange
osld.Shapes(shpname).Delete
Next osld
End Sub


So since this worked so nicely how could I go about repeating a recorded macro for every slide. The macro to be recorded would be macro1 or macro4 etc. and this would be asked for by an input box. The problem is though when using application.run it has the file name and then macro name so Im not sure how hard it would be to be able to run this code then it prompt an input box for what macro number you want to run and then this macro would run on all selected slides. This would be way awesome if you needed to add a shape on each slide and send it backward 20 times for 20 slides.

Thanks