Sub What_Am_I()Dim CompletePathName As StringCompletePathName = ActiveWorkbook.Path & "\" & ActiveWorkbook.NameMsgBox (CompletePathName)End Sub