Userform to work with all slides

[peterwmartin]

Hi all,
I have a userform I wish to control shapes on several or all slides, I have no problem when I am only using it with one slide.
This is my code so far however it is not working.
Private Sub CommandButton6_Click()
'Dim mySlides() As Object
Set mySlides = ActivePresentation.Slides.Range(Array("Slide2", "Slide3"))
Select Case TextBox1.Value
Case "Waist Elastic"
ActivePresentation.Slides.Range(mySlides).Shapes("Waist Elastic").Top = ActivePresentation.Slides.Range(mySlides).Shapes("Waist Elastic").Top - 5
End Select
End Sub
Can someone help please?:banghead:

[John Wilson]

Sub multiSlide()
Dim mySlides As SlideRange
Dim osld As Slide
Set mySlides = ActivePresentation.Slides.Range(Array("slide2", "slide3"))
For Each osld In mySlides
osld.Shapes("Waist Elastic").Top = osld.Shapes("Waist Elastic").Top - 50
Next
End Sub