Ray,

Sub HideSlideTitles()
' Hides slide title by hiding the shape

   Dim oSlide As Slide

   For Each oSlide In ActiveWindow.Presentation.Slides
           ' Does the shape have a title?
           If oSlide.Shapes.HasTitle Then
               'If it is not a title slide then hide the title.
               If oSlide.Layout <> ppLayoutTitle Then
                   oSlide.Shapes.Title.Visible = msoFalse
               End If
           End If
   Next oSlide

End Sub

I would try something like this.

Sub HideUnwantedSlideTitles()
' Hides slide title placeholder on  _
       non-TitleMaster slides

Dim x As Integer

For x = 2 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(x)
If .Layout <> ppLayoutBlank And _
   .Layout <> ppLayoutTitle And _
   .Layout <> ppLayoutTitleOnly Then
   .Shapes.Title.Visible = msoFalse
   End If
   End With
   Next x

End Sub

Hi Bill

Shyam's code will do what you need if you want to not rempve the titles from
title layout slides (this is often slide 1, but not always)

There are errors in your code (corrected by Shyam) which I thought I would
point out in the interests of education! If you do not check that the slide
has a title

"If oSlide.Shapes.HasTitle Then " ....

any slide without a title will crash the code and can put the user into the
vb editor which is NOT a good idea! Bill checks this in a different way by
checking for blank layout (which doesn't have a title placeholder). Even with
Bill's check the code will crash if the title placeholder has been deleted
from another layout.

-- Improve your skills - http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk

Need a dice throw for a ppt game?-  http://www.technologytrish.co.uk/dice.html