siwelniffoc9
10-01-2015, 06:14 AM
I have the below code for excel which combines all open workbooks sheets into one workbook and closes the old copied workbook. i am wanting to adapt this so that it does the same in powerpoint, takes all open presentations and copies slides into active presentation. help please
Sub Macro1()
Dim wb As Workbook
Dim wbThis As Workbook
Set wbThis = ThisWorkbook
For Each wb In Application.Workbooks
If wb.Name = wbThis.Name Then GoTo 10
wb.ActiveSheet.Copy After:=wbThis.Sheets(Sheets.Count)
wb.Save
wb.Close
10
Next wb
End Sub
Sub Macro1()
Dim wb As Workbook
Dim wbThis As Workbook
Set wbThis = ThisWorkbook
For Each wb In Application.Workbooks
If wb.Name = wbThis.Name Then GoTo 10
wb.ActiveSheet.Copy After:=wbThis.Sheets(Sheets.Count)
wb.Save
wb.Close
10
Next wb
End Sub