Run-time error '1004'; Document not saved - intermittent
 

ChDir "directory$\Phones\Telephone Directories\MASTER"
Application.ActiveWorkbook.SaveAs Filename:= _
"directory$\Phones\Telephone
Directories\MASTER\LatestContactList.xls", FileFormat:= _
1, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

This coded only works about 1 out of 10 tries. The other 9 times it gives
the error message in the subject. Any suggestions? Thanks.