Activate sheet which contains date

[shamim]

Hi,

How to identify/Activate sheet if contains date (mm.dd.yyyy) in current workbook?

Regards,
Uday

[Bob Phillips]

Private Sub Workbook_Open()
Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
    
        If IsDate(Replace(ws.Name, ".", "-")) Then
        
            ws.Activate
            Exit For
        End If
    Next ws
End Sub