Multiple users executing code in .xls file causing error

Originally Posted by Norie

Are you closing the recordset and connection that this code opens?

rsHistory.Close

Set rsHistory = Nothing

cnNew.Close

Set cnNew = Nothing

Yes it goes on to some other code after that but it doesn't give the error there.
Right at the end there is

rsHistory.Close
    Set rsHistory = Nothing
    cnNew.Close
    Set cnNew = Nothing