A fájl kiválasztása után

MsgBox ActiveWorkbook.Path & "" & ActiveWorkbook.Name & "   " & ActiveSheet.Name

Ez már az aktív lap nevét is tartalmazza.