fatihmeh

Sub solin()
  
  Dim swApp, Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

    On Error Resume Next
    Set swApp = GetObject(, "SldWorks.Application")
    If swApp Is Nothing Then
    MsgBox "Please open SW and try again"

fatihmeh

Sub catin()

On Error Resume Next
    Set catProg = GetObject(, "CATIA.Application")
    If catProg Is Nothing Then
    MsgBox "Please open CATIA and try again"
    Exit Sub
    End If
    catProg.Visible = True

fatihmeh

'https://docs.microsoft.com/en-us/office/vba/api/excel.application.executeexcel4macro

Option Explicit

Sub testExecute()

    Dim wbPath, wsName, wbName, searchString, resMatch, resIndex, resOne, wr1, wr2 As String
    'Dim aRange As Range
    'Set aRange = Application.InputBox(prompt:="Enter range", Type:=8)