Zelle mit aktuellem Datum soll autom. gewählt werd
02.05.2005 19:09:31
Bueerns
ich möchte beim Aktivieren eines Worksheets, dass die Zelle mit dem aktuellen Datum markiert wird. Leider funzt nachstehender Code nicht:
Private Sub Worksheet_Activate()
On Error Resume Next
Dim cell As Range
Set cell = Range("A1:C100").Find(what:=Date).Select
End Sub
Weiß jemand woran das liegt?
Gruß
Bueerns