cel met datum van vandaag activeren bij openen bestand

[brandernl]

Ik heb een roosterapplicatie gemaakt met 13 tabbladen van elk 4 weken.
De datums staan op elk blad in hetzelfde bereik. Ik wil dat bij het openen van het bestand de datum van vandaag geactiveerd wordt.
Op één werkblad gaat dat prima, maar laat ik de macro los op het hele workbook, dan lijkt ie het niet te begrijpen . Welke denkfout maak ik?
Gaarne uw deskundige commentaar.

Private Sub Workbook_Open()
    Dim c As Range
    Dim cR As Range
    Dim ws As Worksheet
    Dim Vandaag As Date
    Set cR = [D6:AY6]

    Vandaag = Now()
    For Each ws In ThisWorkbook.Worksheets
        For Each c In cR
            If c = Vandaag Then c.Activate
        Next
    Next
End Sub

 

[Cobbe]

Dit kan al soelaas brengen, anders moet je met format de 2 gegevens in opmaak gelijkzetten:

Vandaag = Date()

 

[brandernl]

Ha Cobbe,
De () achter Date gooit ie weg en ik krijg dan een fout op

For Each c In ws

 

[brandernl]

Laat op de avond, hoe meer je dingen niet ziet:
dit is de goede:

Private Sub Workbook_Open()
    Dim c As Range
    Dim cR As Range
    Dim ws As Worksheet
    Dim Vandaag As Date
    Set cR = [D6:AY6]

    Vandaag = Now()
    For Each ws In ThisWorkbook.Worksheets
        For Each c In cR
            If c = Vandaag Then c.Activate
        Next
    Next
End Sub

Niettemin dank; je gaf me net het goede duwtje. Welterusten!

 

[HSV]

Of:

Private Sub Workbook_Open()
  Dim ws As Integer
   For ws = 1 To Sheets.Count
 With Sheets(ws).Range("D6:AY6")
    On Error Resume Next
   Application.Goto .Find(Date)
   ActiveWindow.ScrollColumn = ActiveCell.Column
  End With
 Next
End Sub