Determine if Specific 3rd party Program Is available to Run

[pholness]

Hello all, I learned how to determine if a specific MSO App is running, but now I would like to determine if a specific third party program like "SAP" or "Primavera 6" or "AUTOCAD" etc is available to run.

Background: A list box will be generated based on the available programs on the users PC. The user will be able to pick from this list which programs (as well as webpages, files and or folders) they want opened when Excel starts.

I searched the web over the last two days and this forum this morning and not sure if this has been done before... or maybe I'm just at that point where a fresh pair of eyes can help... any help would be appreciated + thanks!

 

[pholness]

UPDATE!! Here is the code I am using to determine MSO Apps:
(Please help me figure out how to determine 3rd party apps + thanks!)

Dim AppName As Variant
Dim AppSearch(0 To 9) As String
Dim Final, AppNameFound As String

AppSearch(0) = "Word.Application"
AppSearch(1) = "Excel.Application"
AppSearch(2) = "Outlook.Application"
AppSearch(3) = "PowerPnt.Application"
AppSearch(4) = "MSAccess.Application"
AppSearch(5) = "OneNote.Application"
AppSearch(6) = "Publisher.Application"
AppSearch(7) = "InfoPath.Application"
AppSearch(8) = "OneNote.Application"
AppSearch(9) = "Groove.Application"

For Each AppName In AppSearch

AppNameFound = AppName
Final = Workbooks(Application.ThisWorkbook.Name).Sheets(myControls).Range("AN65536").End(xlUp).Row + 1
If ApplicationIsAvailable(AppNameFound) = True Then
Workbooks(Application.ThisWorkbook.Name).Sheets(myControls).Range("AN" & Final).Value = AppNameFound
End If

Next AppName

With Selection
.ListFillRange = "Controls!$AN$2:$AN$" & Final
End With