Hi Shazam,

Something to get you started, maybe. It's a late bind from Excel which pushes the used range to a powerpoint slide:

[vba]Public Sub TransferToPPT()
Dim objSheet As Worksheet
Dim pptApp As Object
Dim pptPre As Object
Dim pptSld As Object

'Create a new Powerpoint session
Set pptApp = CreateObject("PowerPoint.Application")
Set pptPre = pptApp.Presentations.Add

'Loop through each worksheet
For Each objSheet In ActiveWorkbook.Worksheets
'Create new slide for the data
Set pptSld = pptPre.Slides.Add(pptPre.Slides.Count + 1, 12) 'ppLayoutBlank = 12
objSheet.UsedRange.Copy
pptSld.Shapes.Paste
Next objSheet

'Activate PowerPoint application
pptApp.Visible = True
pptApp.Activate
End Sub[/vba]

HTH,