Sub M_snb()
   if Application.Version="14.0" then 
      MsgBox "please open this file in Excel 2007"
      exit sub
   end if
End Sub