Workbook.FileFormat (Excel)

Returns the file format and/or type of the workbook. Here you can find possible values for XlFileFormat.

Some of these constants may not be available to you, depending on the language support (U.S. English, for example) that you've selected or installed.

Dim xffFileFormat As XlFileFormat
xffFileFormat = ActiveWorkbook.FileFormat