save active sheet

Solved.

Thank you all again!

Marton

"VilMarci" <dontsend@here.com> wrote in message
news:%23y2HrdtWFHA.2128@TK2MSFTNGP14.phx.gbl...
> Thanks for you all!
>
> This .copy I didn't know.
>
> I have a lot of linked cells. Is it possible to use and save the current
> static values, so the persons who receives the standalone sheets will have
> all the data they need?
>
> Marton
>
> "Tom Ogilvy" <twogilvy@msn.com> wrote in message
> news:Oiox2MtWFHA.1152@tk2msftngp13.phx.gbl...
> > Sub test()
> > Dim sh as Worksheet
> > for each sh in Worksheets
> > sh.Copy
> > Application.displayAlerts = False
> > ActiveWorkbook.SaveAs Filename:="C:\MyFolder\MySubFolder\" & _
> > sh.Name & ".xls"
> > Application.displayAlerts = True
> > ActiveWorkbook.Close Savechanges:=False
> > Next
> > End Sub
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "VilMarci" <dontsend@here.com> wrote in message
> > news:OMpHj%23sWFHA.2128@TK2MSFTNGP14.phx.gbl...
> > > Hi,
> > >
> > > Thanks for the quick reply.
> > > The main task would be to separate the workbook into separate files
per
> > > sheet.
> > >
> > > Marton
> > >
> > >
> > > "William" <willwest22@yahoo.com> wrote in message
> > > news:Opq4QQsWFHA.3760@TK2MSFTNGP15.phx.gbl...
> > > >
> > > > Sub test()
> > > > ActiveSheet.Copy
> > > > ActiveWorkbook.SaveAs Filename:="C:\MyFolder\MySubFolder\Test.xls"
> > > > ActiveWorkbook.Close
> > > > End Sub
> > > >
> > > > What did you want to happen to the original workbook?
> > > > --
> > > >
> > > >
> > > > XL2003
> > > > Regards
> > > >
> > > > William
> > > > willwest22@yahoo.com
> > > >
> > > >
> > > > "VilMarci" <dontsend@here.com> wrote in message
> > > > news:%2303MpFsWFHA.3140@TK2MSFTNGP14.phx.gbl...
> > > > > Hi,
> > > > >
> > > > > How can I save only the active sheet of a workbook in VBA?
> > > > >
> > > > > Marci
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

Hello,

With this code, how do I call an input box so that the user can enter a file name (e.g. todays date), then save the workbook. Or maybe let the macro grab the date from the sheet and save it as the file name.

Sub test()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\ArchiveFolder\Test.xls"
ActiveWorkbook.Close
End Sub

Thanks,
EMoe