I am trying to extract the file extension from an excel filepath, in order
to check for .xlsx .xlsm and .xls - for Excel 2003 and 2007.

What I would like to do is to have a message box pop up on the sheet
"FileExtension" saying something like:-

MsgBox "The file extension for this file is " & FileExt

This would preferably be in the Worksheet_Activate() procedure.

Thanks
Sandy