Thanks. We have a workbook that multiple employees (with multiple
versions of Excel 2000, 2002, 2003) update on a daily basis. There are
3 sheets in the book however the problem is occuring with only one.
The sheet that we're having problems with (Night Orders) has 4 buttons
on it. Distribute, E-mail, Update and Close. The E-mail, Update and
Close buttons work without a problem. The Distribute button is what
I'm having problems with. When a user clicks on the distribute button
the 'Night Orders' sheet is first converted to a .pdf (Night
Orders.pdf) and saved to a public share on our file server. Once the
file is copied to our public share, the Night Orders.pdf file is then
copied to an Archive Folder on the same public share and renamed to
reflect the current date (3_12_2008.pdf). This allows us to keep up
with regulatory requirements. When a user click on the distribute
button the file is successfully converted to a .pdf and stored on the
public share (Night Orders.pdf). The problem occurs in the second part
of the code when the initial file (Night Orders.pdf) is copied to the
Archive folder and renamed. This is the point in which we receive the
'run time error 53' 'file not found' error message. When I click
debug, the code editor is highlighting the 'FileCopy SourceFile,
DestinationFile' line. I'm assuming that this is because the Source
File (Night Orders.pdf) cannot be found (If I browse to the public
share the file DOES exist). What's confusing is the fact that the code
has not been changed in any way over the last 6 months and this
problem just started occuring about 4 weeks ago. I've checked the
permission on the destination location(s) and everything is correct. I
hope this is enough detail for you to assist me with this issue. The
code that you requested is below. Thanks so much for your help.

Private Sub cmdDistributeNightOrders_Click()

   Dim fName
   Dim MyMonth
   Dim MyDay
   Dim MyYear
   Dim SourceFile As String
   Dim DestinationFile As String

   MyMonth = Month(Now)
   MyDay = Day(Now)
   MyYear = Year(Now)

   fName = MyMonth & "_" & MyDay & "_" & MyYear & ".pdf"

   Application.DisplayAlerts = False
   Application.ScreenUpdating = False

   Sheets(Array("Night Orders", "Master Tank List")).Select

'****
'Generate Adobe File
'****
'
'**********************************************
'Christina's Adobe printer settings
'**********************************************

   Application.ActivePrinter = "Adobe PDF on Ne05:"
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
       "Adobe PDF on Ne05:", Collate:=True

'****
'Pauses application to provide time for Adobe file to be generated
'****

   newHour = Hour(Now())
   newMinute = Minute(Now())
   newSecond = Second(Now()) + 5
   waitTime = TimeSerial(newHour, newMinute, newSecond)
   Application.Wait waitTime

'****
'Copies Active Night Order to Archive folder (renames file using
current date)
'****

   SourceFile = "\\Newellfile\Public\Shared\Night Orders\Active Night
Orders\Night Orders.pdf"
   DestinationFile = "\\Newellfile\Public\Shared\Night Orders\Archive
Night Orders\" & fName

   FileCopy SourceFile, DestinationFile

   Worksheets("Night Orders").Activate

End Sub