VB EXCEL 2007 TO 2003

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)Public Sub translateFormat(strS1 As String, strD1 As String, strPath As String)'    Dim xlApp As New Excel.Application    Dim xlBook As New Excel.Workbook        Set xlApp = CreateObject("Excel.Application")    xlApp.Visible = False    Set xlBook = xlApp.Workbooks.Open(strPath & strS1)    xlApp.DefaultSaveFormat = xlExcel8    xlApp.DisplayAlerts = False    xlBook.CheckCompatibility = False    xlBook.SaveAs strPath & strD1, FileFormat:=xlExcel8        xlBook.Close    Set xlBook = Nothing    xlApp.Quit    Set xlApp = Nothing    Kill strPath + strS1    Sleep 200End Sub

THAT ALL