Macro que funciona en dos pc si y otros dos no

Hola

Tengo la siguiente macro en un servidor de red que usamos cuatro
personas y para dos funciona perfectamente y para los otros dos da
error 1004. La macro "debe estar bien" pues funciona siempre para esos
dos usuarios y para los otros dos falla siempre al intentar enviar la
segunda hoja, para que les vuelva a funcionar tienen que cerrar todo
el excel y volver abrir.

Sub email()
'
' email Macro
' Macro grabada el 18/12/2008 por Luismi
If MsgBox("Esta a punto de envíar un correo automático, Para completar
esta operacion, Pulsar aceptar", vbOKCancel) = vbOK Then
Run ("ponerfecha")
ActiveSheet.Copy
ActiveSheet.Unprotect "True"
Selection.Locked = True
ActiveSheet.Protect "True"
Dim wb As Workbook
Dim strdate As String
Dim Direcciones As Variant
strdate = Format(Now, "dd-mm-yy h-mm")
Direcciones = Range("c2:c9")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs Replace(ThisWorkbook.Name, ".xls", "") & " " & Range("a10")
& " " & strdate & ".xls" '(error 1004)
.SendMail Direcciones, "Peticion transporte" & " " & Range("a10")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("E1:F1").Select
Selection.ClearContents
Range("A15").Select
End If

'
End Sub

Igual la macro está bien y es problema de configuracion de esos dos
pc, alguien me puede ayudar? La macro la he creado en casa y tambien
funciona perfectamente.

Saludos
Luismi