Workbook.ApplyTheme (Excel)

Applies the specified theme to the current workbook.

ApplyTheme (Filename)

Filename: Name of the theme.

Dim strFilename As String: strFilename = 
ActiveWorkbook.ApplyTheme Filename:=strFilename