'Paul, I think that the only way To Select the last Output navigator's table 'Is To use a script, which could be invoked from syntax With the SCRIPT Comma'nd. 'Posted by Fabrizio Arosio to SPSSX-L on July 10, 2000 Sub Main Dim objOutputDoc As ISpssOutputDoc Dim objItems As ISpssItems Dim Index As Long If objSpssApp.Documents.OutputDocCount > 0 Then Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc Else MsgBox "No Navigator window exists" Exit Sub End If objOutputDoc.ClearSelection Set objItems = objOutputDoc.Items For Index=objItems.Count-1 To 0 Step -1 With objItems.GetItem(Index) If .SPSSType=SPSSPivot Then .Selected = True Exit Sub End If End With Next Index MsgBox "No Pivot Table found" End Sub