I use

ActiveWorkbook.Path

However this gives an empty string if the workbook  is a new one which has not
been saved.

Note that this does not include a trailing "\" so you need to add this if you
are constructing a path  and filename string.