see if this helps. Otherwise, probably not. Sub whatversion() msgbox ActiveWorkbook.FileFormat End Sub