Up One Level ?

[Phil vK]

In Excel 2010 beat, is there a "Up One Level" arrow when one is saving a
file? Without it I have to go thru the entire folder tree to get to the
location where I want to save a file. Maddening.

 

[Don Guillett]

See if this helps

Sub GetParentPath()
mydir = ActiveWorkbook.Path
MsgBox mydir
MsgBox Left(mydir, InStrRev(mydir, "\"))

'ChDir ActiveWorkbook.Path
'ChDir ".."
End Sub

 

[Phil vK]

DOn - How would I add this routine to the "save" window? I am not a
programmer.