If lcase(Activeworkbook.Path) < "your path" Then
Msgbox "Please open the latest version from ..."
ActiveWorkbook.Close False
End If

Enter "your path" all lowercase (VB is case sensitive for string comparisons
by default).

--
Jim
wrote in message
oups.com...
| Hi,
|
| I have a workbook that is used to convert data copied from various
| customer screens on our company mainframe. Problem is, people are
| copying the file to their pc's and not using the most up to date
| version.
|
| Can anybody assist with some code that looks a the path of the file
| being tested. If it is not the path I specify, alert the user and close
| the workbook?
|
| Thank you in advance for any assistance you can provide with this
| problem.
|
| Alan
|