It looks like the files are running from a server. Depending upon how those
mappings were created, they may not always work accurately. I suggest
remapping the paths and using the new mappings in your code.

Signature
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com
I have most of it working now, except for the part that deletes rows if the
date is less than Now(). Can you check to see if I'm using the right syntax
for that code.
Sub ProcessWorkbook()
> > Dim bk As Workbook, sh As Worksheet
> > Dim rng As Range, lastrow As Long
[quoted text clipped - 13 lines]
> > Next
> > End Sub
> It looks like the files are running from a server. Depending upon how those
> mappings were created, they may not always work accurately. I suggest
[quoted text clipped - 51 lines]
> > Thank you
> > End Function
Arvin Meyer [MVP] - 16 May 2008 20:17 GMT
Now() is a timestamp function and includes the current time as well as the
date. Try replacing:
If rng < Now() Then
with:
If rng < Date Then
Also, I don't see where you've Dim'd or instatiated Excel:
Dim objXL As Object
Set objXL = CreateObject("Excel.Application")

Signature
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com
>I have most of it working now, except for the part that deletes rows if the
> date is less than Now(). Can you check to see if I'm using the right
[quoted text clipped - 81 lines]
>> > Thank you
>> > End Function