I think that the sheet is allready activated if you have selected a view.
Here the code to retrieve the sheet name:
Code:
Sub CATMain()
Dim Document1 As Document
Set Document1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = Document1.Selection
Set myview = selection1.Item(1).Value
Set mysheet = myview.Parent.Name
End Sub