allison
03-03-2008, 02:45 PM
This code works just fine for me, but when someone else runs it, they are getting a compile error - project or library not found:
Sub Save()
Dim newFile As String
Dim faName As String
Dim fbName As String
Application.ScreenUpdating = False
faName = Range("H2").Value
fbName = Range("H4").Value
newFile = Format$(Date, "YYYYMMDD") & " " & faName & " " & fbName
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:=newFile
MsgBox ("Review logged as " & newFile)
Application.ScreenUpdating = True
End Sub
I have checked/rechecked that the people that are trying to run it have permissions to read/write into the folders, etc. Any suggestions?
Sub Save()
Dim newFile As String
Dim faName As String
Dim fbName As String
Application.ScreenUpdating = False
faName = Range("H2").Value
fbName = Range("H4").Value
newFile = Format$(Date, "YYYYMMDD") & " " & faName & " " & fbName
ChDir "E:\"
ActiveWorkbook.SaveAs Filename:=newFile
MsgBox ("Review logged as " & newFile)
Application.ScreenUpdating = True
End Sub
I have checked/rechecked that the people that are trying to run it have permissions to read/write into the folders, etc. Any suggestions?