Const HKEY_LOCAL_MACHINE = &H80000002' Get the path of a Windows application' or an empty string if the application isn't registered'' this routine only works for those applications that register' themselves under the registry key' HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionApp Paths'' You can use it to retrieve the path of all MSOffice apps,' MS Access, SQl Server, Windows Dialer, and more, for example' ' Run Excel in a maximized window' Shell GetApplicationPath("EXCEL.EXE"), vbMaximizedFocus'' requires the GetRegistryValue functionFunction GetApplicationPath(ByVal ExeName As String) As String GetApplicationPath = GetRegistryValue(HKEY_LOCAL_MACHINE, _ "SoftwareMicrosoftWindowsCurrentVersionApp Paths" & ExeName, "")End Function