Problem with a command button in excel 2007

[picassobrown]

Please can anyone see why the code below does not work in excel 2007 this has currently been working fine in 2003 but now i keep getting the error msg

the command button is designed to save the form and put it directly into outlook with the built in address


Private Sub CommandButton1_Click()

Dim Response As Integer
Dim ManagerPin As Long

On Error GoTo ErrHandler
Response = MsgBox("Are you sure you want to Save and Send ?", vbYesNo + _
vbQuestion)
If Response = vbYes Then
Sheet1.SaveAs "c:\VehComForm.xls"

Application.Dialogs(xlDialogSendMail).Show _
("ukcustomersupport@akzonobel.com")
Application.Workbooks.Close

End If
Exit Sub
ErrHandler:
MsgBox ("Invalid Entry")
End Sub

 

[SkipVought]

Hi,

Please post VBA questions in Forum707.

Is your 2007 workbook macro enabled?

Step thru your procedure to observe where is is going to the error trap. Report back what statement is causing the error.

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}