Hello,

I am using a "for" loop on my sildes. But i guess the "for" is bloquing the numbering. I let you watch :

nbrTitre = 0

For j = 3 To Pres.Slides.Count
If ((Pres.Slides(j).Shapes(1).Width = 648) And (Pres.Slides(j).Shapes(1).Height = 90)) Then
nbrTitre = nbrTitre + 1
End If
Next j

The condition is true only when the slide is empty which is not normal.

Thank you for watching