Hi Group,

Hi have a custom save routine which saves to a local machine, then
creates a backup save to a network drive the path of which is defined
within the worksheet. During testing it has worked many times over
the network but users report that it doesn't always save, and more
peculiarly that only part of the information changed is saved! The
time a backup save takes is around 4 minutes over the network.

I have identified some occurrences of user error but am unable to
explain all. I've posted code used below and would appreciate any
comments.

Don


Sub BkupSve()

Application.ScreenUpdating = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=False,
Scenarios:=False

Range("C69").Select
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False

On Error Resume Next

Call Hide

Application.DisplayAlerts = False

ThisWorkbook.Save


With ActiveWorkbook
.SaveAs Filename:="" _
& .Worksheets("Confidence Levels").Range("C69").Value &
".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
_
ReadOnlyRecommended:=False, CreateBackup:=False
End With

Call firefighter
MsgBox "File successfully backed up. Now in Read Only. Select Change
User to Edit"

End Sub