Inserting Date Into Cell When Email Sent

The following code sends the open workbook, as an attachment, to a predefined email address. It then inserts the date it was sent in a cell in another workbook. It works ok in three other modues going to different addresses, it works ok on other networked PCs. Unfortunately on one PC we get the error "Can't Find Project or Library". Initially this pointed to an undeclared variable, when this was declared, it pointed to another. All variables have now been declared but it fails and points to the DATE command".

VB:
Sub To_Design()
''
'=======================================================================================================
'This emails the current open file, which is named after the Log Number, to the Originator of the Doc 34.It opens up
'the Doc 34 Log and enters the date that it was sent in Column L. The email addressee has to be manually added as it
'could have been originated from anywhere in the company.
'=======================================================================================================

[Code] ....