Force save in directory

I am not sure there is a way to do this in VBA. Does anyone know how to specify the save location (directory) for a workbook from within a macro? Or maybe set the default save directory when the workbook is open, using the Workbook_Open() function.

Thanks to those who have helped so far

Ed