> Hi everyone,
>
[quoted text clipped - 5 lines]
>
> 3. It saves it into hard drive (i.e. c:\Mydocument\)
Also How do I make the current workbook close without asking me "DO
YOU WANT TO SAVE" lol
thanks alot everyone
Gary Keramidas - 28 May 2008 08:35 GMT
this is just a simple bit of code, doesn't do any error checking because i don't
know what you're dealing with.
Sub save_it()
Dim FileToSave As String
Dim fPath As String
fPath = "C:\My Documents\"
FileToSave = Application.InputBox("Enter filename to save", "Save File", ,
, , , , 2)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (fPath & FileToSave & ".xls")
Application.DisplayAlerts = True
End Sub

Signature
Gary
> Hi everyone,
>
[quoted text clipped - 5 lines]
>
> 3. It saves it into hard drive (i.e. c:\Mydocument\)
Also How do I make the current workbook close without asking me "DO
YOU WANT TO SAVE" lol
thanks alot everyone
Bob Phillips - 28 May 2008 10:34 GMT
Reply in other thread not good enough for you?

Signature
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
> Hi everyone,
>
[quoted text clipped - 5 lines]
>
> 3. It saves it into hard drive (i.e. c:\Mydocument\)
Also How do I make the current workbook close without asking me "DO
YOU WANT TO SAVE" lol
thanks alot everyone