I downloaded your file. Didn't find any code. Had to add module and save as pptm. There were two variables not declared: otbl and Y. Do you have Option Explicit at top of module?

The date gets added to title with this line:
osld.Shapes.Title.TextFrame.TextRange = MonthName(lngM) & " " & lngY

What do you want instead?