''Click on a sketch and run this macro
''In a messagebox it will show you on wiche plane the sketch has been created.

''Macro created by Stefaan Boel
''Copyright by Inventor Wizard (http://www.inventorwizard.be)
''Use this macro at your own risk.
''You may only copy/modify this or part of the code if you leave this header!

Public Sub SketchOnWhichPlane()

On Error Resume Next

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oSketch As PlanarSketch
Set oSketch = oDoc.SelectSet.Item(1)

MsgBox oSketch.PlanarEntity.Name
MsgBox oSketch.PlanarEntity.CreatedByFeature.Name

End Sub