Please help for below macro.....

How to link "i" value from excell sheet. PLease refer image for i value colum and excell sheet name

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("FIP", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

Dim myRefPlane As Object

Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, i, 0, 0, 0, 0)

boolstatus = Part.Extension.SelectByID2("FIP", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

Part.ClearSelection2 True

End Sub

Excell sheet image