Wieso funktioniert in 2000 u. in 97 nicht ?

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
On Error Resume Next
Sheets("Geburtstagsliste").Unprotect ("ww")
Hier wird die Zahl angezeigt:
Label1.Caption = Format(Worksheets("Geburtstagsliste"). _
Range("A1").Value
Hiermit läuft in 2000 einwandfrei:
''Label1.Caption = Format(Worksheets("Geburtstagsliste").Range _
''      ("A1").Value, ("dddd,  dd.mm.yyyy"))     'muß rein zeigt sofort an
txtDate = Format(Now, "dd.mm.yyyy")                'muß hier stehen,damit
' zeigt akt.Datum an ...
'   in der txt Textbox an
Label5.Caption = Format(txtDate, "dddd")          'zeigt Tag als Name an
Application.ScreenUpdating = True
End Sub