Excel-Makro zur Datei-Konvertierung

Hallo!

Ich stehe vor folgendem Problem: Und zwar muss ich mehrere hundert Excel und Word Dokumente die mit Word/Excel 2000 verfasst wurden so konvertieren, dass diese in Word/Excel 95 (Version 7.0) geöffnet werden können.
Ein Tool das diese Konvertierung durchführen kann, habe ich nur für Word-Dateien gefunden.

Mittlerweile habe ich auch ein Makro, welches alle Word-Dateien innerhalb eines Ordners anspricht, umkonvertiert zu Word-95 Dateien und neu speichert.
Ich würde mich sehr freuen wenn mir jemand helfen könnte dieses Makro so umzuschreiben, dass es für Excel-Dateien funktioniert (also alle Excel-Dateien in einem Ordner neu speichert im Excel-95 Format).

Der Makro-Code für die Word-Dateien ist folgender:

Sub AlleDateienAnsprechen()
Dim Verz As String
Dim DName As String

Verz = "C:\temp\"

DName = Dir(Verz & "*.doc")

If DName <> "" Then
Dateienkonvertieren Verz, DName
End If

Do While (DName <> "")
DName = Dir()
If DName <> "" Then
Dateienkonvertieren Verz, DName
End If
Loop

End Sub
Sub Dateienkonvertieren(Verz As String, DName As String)

Documents.Open (Verz & DName)
With Documents(DName)
.SaveAs FileName:=DName, FileFormat:=106
.Close SaveChanges:=wdDoNotSaveChanges
End With

End Sub

Ich muss noch erwähnen dass ich sehr unerfahren bin mit dem Programmieren von Makros, hoffe dass mir jemand bei diesem Problem helfen kann.

mit freundlichen Grüßen
Matthias