Activeworkbook.ApplyTheme()

[rick]

Is there a way to override any User-chosen theme and apply a theme to a
workbook?

I have developed the workbook using the Office built-in theme. I am able to
apply any theme (other than Office) with:
<unprotect sheets>
ActiveWorkbook.ApplyTheme ( _
"C:\Program Files\Microsoft Office\Document Themes 12\Aspect.thmx")
for example.

But, it looks like the Office theme is not available as it is not in the
Document Themes 12 library.

When I applied the Office theme, the command captured by the macro recorder
was ActiveWorkbook.ApplyTheme () however that gives a syntax error during
compile.

Any help would be appreciated.
Thanks.

Rick