For i = 1 To 10
'get student name from worksheet
x = ox.Worksheets("data").Cells(21, 2 + i).Text

With ActivePresentation.Slides(2).Shapes("name" & i)
.TextFrame.TextRange.Text = x
End With
'check if student pic in file

On Error Resume Next
xipath = Dir("C:\ProgramData\Learning Excellence\Behavior\Pictures\" & x & ".jpg")
On Error GoTo 0

' if not = forecolor white
If xipath = "" Then
With ActivePresentation.Slides(2).Shapes("pic" & i)
.Fill.ForeColor.RGB = RGB(255, 255, 255)
End With

' if yes = forecolor picture
Else
With ActivePresentation.Slides(2).Shapes("pic" & i)
.Fill.UserPicture ("C:\ProgramData\Learning Excellence\Behavior\Pictures\" & x & ".jpg")
End With
End If
   Next i