How can I write a code that will save as the workbook with newworkbook and in a certain location

[vba]Sub SaveAs()
ActiveWorkbook.SaveAs ("New")
End Sub

[/vba]