Selected Charts To Powerpoint

I am trying to export charts to powerpoint. I have a sheet where the user gives the list of excel files and sheet names (charts as sheet) to be imported. I run a loop to create this... but then i get a script out of range error.

Sub Chart2PPT()
Dim objPPT As Object
Dim objPrs As Object
Dim shtTemp As Worksheet
Dim chtTemp As Chart
Dim intSlide As Integer
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Set FSO = New FileSystemObject
If FSO.FileExists("\server4meme.ppt") Then
Kill ("\server4meme.ppt")
End If
Set FSO = New FileSystemObject
If FSO.FileExists("\server4me ot.xls") Then
Kill ("\server4me ot.xls").........................