Aantal werkbladen tellen aan de hand van gegeven uit één bepaalde cel

[Gerald Baalhuis]

Is het mogelijk om het aantal werkbladen te tellen aan de hand van de inhoud van (telkens dezelfde) cel van elk werkblad?
Ik heb een excel sheet met ongeveer 400 werkbladen. Eén werkblad is het 'hoofdblad'. Op elk werkblad staat in cel C3 een verwijzing naar cel C5 in dat hoofd werkblad, waar de gebruiker een datum invuld.
In alle cellen C3 van de andere werkbladen wordt hiermee de startdag bepaald.
Ik wil nu graag het aantal werkbladen met dezelfde startdag in cel C3 tellen.
Per startdag zou het dan helemaal perfect zijn als de inhoud van de cellen A2 (Apotheeknaam) en A6 t/m A16 (afdelingen) op een nieuw tabblad verzameld worden.

Bijgevoegd een voorbeeld in erg afgeslankte vorm.

Gerald

 

[WinteE]

Sub TelBladen()

Dim Teller As Variant
Dim WS As Variant

Teller = 0

    For Each WS In Worksheets
        If WS.Range("C3") = Worksheets("Hoofdblad").Range("C5") Then
            Teller = Teller + 1
        End If
    Next WS

    Worksheets("Hoofdblad").Range("C3").Value = Teller

End Sub