Help with exporting sheet to a new work book

[vpnvipin]

Hi All,
*
Firstly let me thanks to the admin and all the members for
their wonderful job which they are contributing in this great forum. I have
learnt a lot from all of you.
*
I need a function where I would like to export my sheet1 to another workbook and save that workbook to a path .. with current date to

\\is-fd01\Profiles\vkamalasanan\WorkTools

thank you !!!

[event21]

Hi-

try;

Sub test()
With Application
    .ScreenUpdating = False
    .CutCopyMode = False
    .DisplayAlerts = False
End With
Sheets(1).Copy
ActiveWorkbook.SaveAs "your_full_path\" & Format(Date, "mmddyyyyhhmmss") & ".xlsx"
ActiveWorkbook.Close
With Application
    .ScreenUpdating = True
    .CutCopyMode = True
    .DisplayAlerts = True
End With
End Sub

Regards,
event

[vpnvipin]

Hi Event 21,

Its working great, thanks a lot