Dato reminder regneark(200)

Sub workbook_activate()
Rem Koden udføres når regnearket åbnes

Dim dd As Date, antalRæk
Rem Skift til ark 1
    ActiveWorkbook.Sheets(1).Activate
   
Rem Beregn antal rækker
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem Opsæting af dagsdato til DAG-MÅNED
    dd = Format(Now, "dd-mm")
   
Rem Gennemløb af alle rækker
Rem Kolonne A: DAG-MÅNED anført
Rem Kolonne B: Begivenheden

    For ræk = 1 To antalRæk
        If dd = Cells(ræk, 1) Then
            MsgBox (Cells(ræk, 2))
        End If
    Next ræk
   
End Sub

Vil du lave den til mig i en Microsoft Excel fil? Så kan jeg rette i den ud fra det?

Send en mail til: pb@supertekst-it.dk - så sender jeg min udgave retur...

Har sendt mail nu :o)

Fantastisk!