Workbook.Theme (Excel)

Returns the theme applied to the current workbook.

Dim oteTheme As Office.OfficeTheme
Set oteTheme = ActiveWorkbook.Theme