Public Function ConvertFile(strSourceFileName As String) As Boolean
    On Error GoTo ErrorHandler
 
    Dim msExcel As Excel.Application
    Set msExcel = GetObject(Class:="Excel.Application")
 
    Dim p As String
    p = "Acrobat Distiller on Ne00:"
 
    msExcel.Visible = False
    msExcel.Workbooks.Open strSourceFileName
    strMenuFilePs = strSourceFileName
    msExcel.ActiveWorkbook.PrintOut ActivePrinter:=p, PrintToFile:=False, PrToFileName:=strMenuFilePs
    strMenuFilePDF = "c:\try.pdf"
    Dim myPDF As PdfDistiller
    Set myPDF = New PdfDistiller
    myPDF.FileToPDF strMenuFilePs, strMenuFilePDF, ""
    Set myPDF = Nothing
    msExcel.ActiveWorkbook.Close False
 
    ' Should check and quit excel when done
   msExcel.Quit
    Set msExcel = Nothing
    ConvertFile = True
Exit Function
 
ErrorHandler:
    ' Create Excel for the first time if it is not active
    If Err.Number = 429 Then
        Set msExcel = CreateObject("Excel.Application")
        Err.Clear ' Clear Err object in case error occurred.
        Resume
    End If
 
    ' All other errors handled here
    If IsCriticalError Then
        ConvertFile = False
        Exit Function
    Else
        Resume
    End If
End Function

Sub Separate() 
Dim s as String, sh as worksheet 
For Each sh In ThisWorkbook.Worksheets
If sh.Visible Then 'ignores hidden sheets
sh.Copy 
s = "c:\Separated Sheets\" & sh.Name  'location and names of workbooks 
ActiveWorkbook.SaveAs Filename:=s 
Range("A1:IV5000").Copy  'selects all cells 
Range("A1").PasteSpecial Paste:=xlPasteValues  'pastes values only 
Application.CutCopyMode = False 
Range("A1").Select 'this is just to take the cursor 
'back to the top to make that sheet a litte "cleaner" 
ActiveWorkbook.Close SaveChanges:=True 
End If
Next sh 
End Sub