Oggetto calendario mi da errore ..

Un saluto al forum,

mi è stata postata la seguente procedure per l'utilizzo dell'oggetto calendario all'interno di un range di celle. la stessa funziona perfettamente su Excel 2007 mentre su 2003 mi segnale il seguente errore :

errore di compilazione

impossibile trovare l'oggetto e /o la libreria  e viene evidenziato la voce Format come riportato sotto in grassetto ..

Avete qualche suggerimento ? Grazie



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not (Intersect(Target, Range("H11:L542")) Is Nothing) Then
        If Target.Text <> "" Then
            res = Format(Target.Value, "d/m/yy")
        Else
            res = Date$
        End If
        UserForm1.Show
        If res <> "" Then
            Target.Formula = DateValue(res)
        End If
    End If
End Sub