Got it working... big thanks for all your help.
I created a loop to add the range to a string. Then pasted the string into the textbox.
Sub XL_PP()
Dim objPres As Object, ws As Worksheet, objPPT As Object, tb As Object, i%, j%, k%, _
ns%, LS As PowerPoint.Slide, r&, txt$
Set ws = Worksheets(1)
For r = 1 To 5
txt = txt & Cells(r, 2).Value & vbCrLf
Next
Set objPPT = CreateObject("Powerpoint.Application"): objPPT.Visible = True
Set objPres = objPPT.Presentations.Open(ThisWorkbook.Path & "\Bibliography.ppt")
Set LS = objPres.Slides.Item(1)
Set tb = LS.Shapes.Item(2)
tb.TextFrame.TextRange.Text = txt
Set objPres = Nothing
Set objPPT = Nothing
End Sub
Bookmarks