VB Code Working in 2013 not working in 365

[lol.xls]

I've been using this code for over 5 years (since Excel 2007), and it's worked fine until I begain using office 365. I have the 32-bit version installed but I am unable to us VB to create PDF's not only with this code, in this workbook, but in various workbooks where I used to be able to. Any suggestions?

Sub pdf_print_test()

Dim FileName As String, fPath As String
FileName = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".xls") - 1) & ".pdf"
fPath = ActiveWorkbook.Path & Application.PathSeparator


Sheets(Array("Payroll Summary", "Time Sheet")).Select


FileName = RDB_Create_PDF(ActiveSheet, fPath + FileName, True, False)


    Sheets("Payroll Summary").Select
    Range("C11").Select
End Sub

 

[lol.xls]

OK, appears to be a windows update that broke it. Anyone using Ron's code may need to comment out the following: