I think I have the code to loop through worksheets to find the date on
the correct sheet. Now I am getting an error called type mismatch.

here is my code for some reason it isn't pulling the data from the cell
into lookup

Private Sub workbook_open()
Dim ws As Worksheet
Dim today As Long
Dim lookup As Long
today = Date
For Each ws In ActiveWorkbook.Worksheets
lookup = ws.Cells("b3:b3").Value
If lookup = today Then
ws.Activate

End If
Next


End Sub