How to select Feature(Cut Extrude) by its Name

Dear All,

Need an help Below Code is Doing is job Perfect, But i want a code to select a feature by its name, Instead of selecting on Design Tree.

This example shows how to find out if a feature is suppressed in the specified configurations.

'-------------------------------------------------
' Preconditions:
' 1. Open a part or assembly with one configuration.
' 2. Select a feature.
' 3. Open the Immediate window.
'
' Postconditions:
' 1. Finds out if the selected feature is
' suppressed in the configuration.
' 2. Examine the Immediate window.
'-------------------------------------------------
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim vConfNameArr As Variant
Dim vSuppStateArr As Variant
Dim i As Long
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)

vConfNameArr = swModel.GetConfigurationNames
vSuppStateArr = swFeat.IsSuppressed2(swThisConfiguration, vConfNameArr)
Debug.Print "File = " & swModel.GetPathName
Debug.Print " " & swFeat.Name
For i = 0 To UBound(vConfNameArr)
Debug.Print " " & vConfNameArr(i) & " ---> " & vSuppStateArr(i)
Next i
End Sub

Can i get Code here Replaced with get feature by name, i searched in API Help library. But i couldn't find the code.

Please do the needful.

Set swFeat = swSelMgr.XXXXXX

Thanks & Regards,

Vinoth Kanna.D