Public Function IsTemplate(wbk As Workbook) As Boolean IsTemplate = wbk.FileFormat = XlFileFormat.xlOpenXMLTemplate Or _ wbk.FileFormat = XlFileFormat.xlOpenXMLTemplateMacroEnabled Or _ wbk.FileFormat = XlFileFormat.xlTemplate Or _ wbk.FileFormat = XlFileFormat.xlTemplate8 End Function