Delete some textboxes with tag,VBA

[Edward]

Hi everybody,
I have added some textboxes in PP with special sequence of numbering and I
have added a tag to them "SLDHNUM" now I want to use the following code to
delete them but this code doesn't work any thoughts?

For lx = 1 To ActivePresentation.Slides.Count
For ly = 1 To ActivePresentation.Slides(lx).Shapes.Count
If ActivePresentation.Slides(lx).Shapes(ly).Tags.Count > 0 Then
If ActivePresentation.Slides(lx).Shapes(ly).Tags.Name(1) = "SLDHNUM"
Then
ActivePresentation.Slides(lx).Shapes(ly).Delete
Exit For
End If
End If
Next
Next

by the way I used "for each" version of the loops but still didnt work.

 

[Edward]

Okay I guess i know what was the reason. I'm using this code in combination
with PP's printdialogbox and I missed the point that PP dialg boxes are
modeless and they don't stop the execution of the code untill users responses
to them. Now I guess my question is

lets say we have a code liek this
sub test()

some code here

CommandBars.FindControl(Id:=4).Execute

"some other code" here
end sub
is there a way to stop execution of "some other code" section until user
responds to the print dialog box ?