Set oSketch = .GetActiveSketch2
but don't obtain Sketch name?
the code is
Sub ll1()
Dim SwApp As SldWorks.SldWorks
Dim SwModel As ModelDoc2
Dim oFeat As Feature
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim oSketch As Sketch
Dim SwSelMgr As SelectionMgr
Dim vPtArr, SwSkethPoint As SketchPoint
With SwModel
Set SwSelMgr = .SelectionManager
Set oSketch = .GetActiveSketch2
vPtArr = oSketch.GetSketchPoints
For Each Pt In vPtArr
Set SwSkethPoint = Pt
With SwSkethPoint
Debug.Print .Type
.Select4 False, Nothing
End With
Next
End With
End Sub
*****
http://help.solidworks.com/2010/English/api/sldworksapi/Get_Hole_Series_Information_Example_VB.htm
SolidworksApi macros