Still struggling with this one, i keep getting variable not defined o
oWBAudit. If i do get this to run at all i get the error 424 an
oWBAudit = empty and Nothing=Nothing.

I have put the code in the this workbook module with the initia
statement If oWBaudit Is Nothing Then
Set oWBaudit = Workbooks.Open(FileName:="C:\Audit\Tracking.xls")
End If

at the top and the rest at the bottom of the code, any ideas?

Simo

--
Simon Lloy
-----------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...nfo&userid=670
View this thread: http://www.excelforum.com/showthread.php?threadid=26636