finde en celle med dags dato og springe til denne celle

Sæt denne i arkets modul, så vælges cellen når du skifter til arket.

Private Sub Worksheet_Activate()
    Dim I As Long, Dato As Variant
    Dato = Range("B1:B" & ActiveSheet.UsedRange.Rows.Count)
    For I = 1 To UBound(Dato)
        If Dato(I, 1) = Date Then
            Cells(I, 2).Select
            Exit For
        End If
    Next
End Sub

Tast ALT+F11 dobbeltklik på ThisWorkbook i VBAProjekt vindue
indsæt koden i vindue til højre

Private Sub Workbook_Open()
Cells.Find(What:=Date, After:=[B1], LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub

Kabbaks svar virkede som det skulle, men den hoppede ikke direkte til cellen når jeg åbnede filen.
Execelents svar gav mig en fejl når jeg åbnede filen

Derfor kombinerede jeg makroerne til dette:

Private Sub Workbook_Open()
Dim I As Long, Dato As Variant
    Dato = Range("B1:B" & ActiveSheet.UsedRange.Rows.Count)
    For I = 1 To UBound(Dato)
        If Dato(I, 1) = Date Then
            Cells(I, 2).Select
            Exit For
        End If
    Next
End Sub


Så I har jo hjulpet mig begge to. Så hvis exelent også vil smide et svar, så takker jeg jer begge to for indsatsen :-)

i hvilket ark har du kalender ?

Indsæt dit arknavn i linie 2

Private Sub Workbook_Open()
Sheets("dit ark navn).Activate
Cells.Find(What:=Date, After:=[B1], LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub

Ups, havde lige overset at I havde svaret begge to.
Sorry
og mange tak for hjælpen