Datum automatisch formatieren

Sub Rechteck25_BeiKlick()
'Alle Werte in Zahlenwerte umwandeln
Dim zelle2 As Object
Sheets(1).Range("B1:D200").Select
For Each zelle2 In Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next zelle2
End Sub

nun wäre meine Frage, ob das in so ähnlicher Form auch mit dem Datum möglich wäre. Also wenn ich verschiedene Zeilen, die Datum enthalten in meine Tabelle kopiere und einige die Form 02.04.2008 enthalten, ich das Makro starten kann und dieses die betreffenden Zellen in das folgende Format wandelt: 02.04.08. ist das möglich dies direkt in das obige einzubinden?
Danke jetzt schon und Grüsse
Roland