Datei aus Tabellenname und Datum speichern

Hallo,

ich habe eine Datei mit mehreren Tabellenblättern. Ich suche nach einer Möglichkeit, mit einem Makro das aktuelle Tabellenblatt + Datum + Inhalt einer bestimmen Zelle zu speichern.
Mit dem untenstehenden Makro funktioniert das mit Excel, aber nicht mit OO (Version 3.1.0). Ist das so ähnlich auch mit OO zu lösen?

Thomas

On Error Resume Next
Application.ScreenUpdating = False
pfad = \\192.168.13.230\Daten\
Select Case Right(pfad, 1)
Case
GoTo ErrorHandler
Case Is <> \
pfad = pfad & \
End Select
ActiveSheet.Copy
On Error GoTo ErrorHandler
ActiveWorkbook.SaveAs Filename:=pfad & ActiveSheet.Cells(6, 1)
ActiveWorkbook.Close SaveChanges:=False
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 1004
MsgBox (Speichervorgang des Blattes wurde abgebrochen)
ActiveWorkbook.Close SaveChanges:=False
Case Else
End Select
Application.ScreenUpdating = True
End Sub