How do I make my macro save my spreadsheet when I run it?

Sub savethesheet()

ActiveWorkbook.SaveAs Filename:="D:\myfiles\Book1.xls",
FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Use this code. Obviously change the path of where you want to save it
and the name that you wish to save it as. The way I learned to do these
little things was to record a macro while I was doing what I wanted it
to do. Which is what I did here - set a macro recording then saved my
sheet. Then you can see the code it creates.

Thanks.

keri wrote:
> Sub savethesheet()
>
> ActiveWorkbook.SaveAs Filename:="D:\myfiles\Book1.xls",
> FileFormat:= _
> xlNormal, Password:="", WriteResPassword:="",
> ReadOnlyRecommended:=False _
> , CreateBackup:=False
> End Sub
>
> Use this code. Obviously change the path of where you want to save it
> and the name that you wish to save it as. The way I learned to do these
> little things was to record a macro while I was doing what I wanted it
> to do. Which is what I did here - set a macro recording then saved my
> sheet. Then you can see the code it creates.