I am using the following code which works really well:
Sub CommandButton3_Click()Dim PPApp As PowerPoint.Application, PPPres As PowerPoint.Presentation, PPSlide As PowerPoint.Slide
Dim PPPic As Variant
Dim wb As Workbook, ws As Worksheet
Dim sUser As String, sUserFirst As String, sUserLast As...