Here some code to get you started :

Public Function CoppySelectionToPowerPoint()
Dim PptAPP As Object ' Declare variable to hold the reference.

Set PptAPP = CreateObject("powerpoint.application") 'set variable = to
PowerPoint Application
Selection.Copy 'coppy the selection to clipboard
PptAPP.Visible = True 'make PowerPoint visible
PptAPP.Presentations.Add WithWindow:=msoTrue 'create new presentation
in PowerPoint
PptAPP.ActivePresentation.Slides.Add Index:=1, Layout:=12 ' 1 =
ppLayoutBlank 'add a slide to the presentation
PptAPP.ActiveWindow.View.GotoSlide 1 'navigate to the first slide
PptAPP.ActiveWindow.View.Paste 'paste the selection in PowerPoint
Set PptAPP = Nothing 'release the variable
End Function

This copys the current selection from Excel into a new Powerpoint presentation

Have fun !

"HRobertson" wrote:

Is it possible to create a Macro to run between 2 different Microsoft
products? For example...I would like to create a macro that would format a
spreadsheet, and create a few tables, then copy the tables into a PowerPoint
presentation.

Your help is tremedously appreciated.

Thank You.