Title:Excel path/filenames
Author:Mark Kiehl
Category:MS Excel
Sub ShowFilePaths()
MsgBox Application.ActiveWorkbook.ActiveSheet.Name, vbInformation, "Active sheet"
MsgBox Application.ThisWorkbook.Path, vbInformation, "ThisWorkbook.Path"
MsgBox Application.DefaultFilePath, vbInformation, "DefaultFilePath"
MsgBox Application.ActiveWorkbook.Name, vbInformation, "Active workbook"
MsgBox Application.AltStartupPath, vbInformation, "AltStartupPath"
MsgBox Application.LibraryPath, vbInformation, "LibraryPath"
MsgBox Application.NetworkTemplatesPath, vbInformation, "NetworkTemplatesPath"
MsgBox Application.Path, vbInformation, "Application.Path"
MsgBox Application.PathSeparator, vbInformation, "Application.PathSeparator"
MsgBox Application.StartupPath, vbInformation, "StartupPath"
MsgBox Application.TemplatesPath, vbInformation, "TemplatesPath"
MsgBox Application.UserLibraryPath, vbInformation, "UserLibraryPath"
End Sub