I am trying to set up a spreadsheet where it copies a worksheet to another workbook and brings up the save as dialog box in a specific folder on the network,

the code i am using is as below.



Sheets("Target_Dates").Select
Sheets("Target_Dates").Copy
With Application.Dialogs(xlDialogSaveAs)
.InitialFileName = "N:\BES-DATA\traffman\traffic\"
If Not .Show Then
MsgBox "User cancelled without saving."
Exit Sub
End If
End With

For some reason it does not work and produces an error message "run time error 438 Object does not support this property or methiod"

Any help or suggestion gretly appreciated.

Colin