ActiveWorkbook_Zip_Mail() en las ultimas lineas marco un error...

Sub ActiveWorkbook_Zip_Mail()

Dim PathWinZip As String, FileNameZip As String,
FileNameXls As String
Dim ShellStr As String, strdate As String
Dim Runwzzip As Long
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
strdate = Format(Now, "dd-mm-yy h-mm-ss")
PathWinZip = "C:\program files\winzip\" ' Be sure
that this is the path where WinZip is installed.
FileNameZip = "C:\" & Left(ActiveWorkbook.Name, Len
(ActiveWorkbook.Name) - 4) & " " & strdate & ".zip "
FileNameXls = "C:\" & Left(ActiveWorkbook.Name, Len
(ActiveWorkbook.Name) - 4) & " " & strdate & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=FileNameXls

ShellStr = PathWinZip & "Winzip32 -min -a " _
& " " & Chr(34) & FileNameZip & Chr(34) _
& " " & Chr(34) & FileNameXls & Chr(34)
Runwzzip = Shell(ShellStr, vbHide)

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "jrodrigu@grupolala.com"
.CC = ""
.BCC = ""
.Subject = "ZipMailTest"
.Body = "Here is the File"
.Attachments.Add FileNameZipexactamente aqui me
envia un error.
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
Kill FileNameZip
Kill FileNameXls
End Sub