I would like to add code that Copies text for Shape Title 1 from slide 2 and then delete slide 2 and then paste that text into shape Title 1 of slide 1.

In these code below I am assuming I would need to delete Title 1 first but if I could select all the text that is in slide 1 Title 1 and paste from slide 2 AND retain the font size that was in the text of slide 1 Title 1.

FYI....my strName is because the code captures the Slide 2 Title 1 to save the file with this name.



strName = .Slides(2).Shapes("Title 1").TextFrame.TextRange.Text
.Slides(2).Delete
.Slides(1).Shapes("Title 1").Delete

Any help would be appreciated.