Sorry for this, but I just discovered something else that I need answered.

If you record a macro to change the theme away from the default then change
it back to the "office" theme you get an unusable bit of code"
ActiveWorkbook.Theme.ThemeColorScheme.Load ()

this gives you a runtime error. Also, if you look in the directory listed
below, there is no xml file for the default theme. If this is the case, how
can I switch back to the default theme programmatically?

"JNW" wrote:

Is there a way to determine the current file being used as the theme in xl2007.

I know you can load different themes by using (watch line break)
ActiveWorkbook.Theme.ThemeColorScheme.Load ( _
"C:\Program Files\Microsoft Office\Document Themes 12\Theme
Colors\Equity.xml")

But I can't figure out how to get it to tell me which file it is currently
using.

Thanks.