Excel VBA Current Folder

' Current folder
MsgBox ActiveWorkbook.Path      ' needs to be saved before
MsgBox CurDir					' default
VasteMonde