Sub CATMain()

n = CATIA.Documents.Count

If n=0 Then
MsgBox "Es befinden sich keine Dokumente in der Sitzung"
Exit Sub
End If

message = "Es sind " & n & " Dokumente geöffnet" & vbCrLf &_
"Sollen jetzt alle geschlossen werden?" 

answer = MsgBox( message, vbYESNO)

If answer = vbYes Then
'I=0

I=1
While n>0 
CATIA.Documents.Item(i).Close
if n = CATIA.Documents.Count then
i=i+1
else
n = CATIA.Documents.Count
end if
Wend 


End If

End Sub