How do you change a workbook from date system 1904 to date system 1900 using VBA?

[kylefoley76]

Openpyxl had the brilliant idea of now making all workbooks default to the 1900 system. This is a huge blow to how I do my spreadsheets. In any case, I now need to program VBA to change the date system otherwise I will continually have to do it manually. I can't figure out how to do it. Does anyone know?

 

[kylefoley76]

Never mind I got it.

If ActiveWorkbook.Date1904 = True Then
        ActiveWorkbook.Date1904 = False
End If

Shew! That was easy.