[Solved] Open specific sheet according to current Date [closed]

by


Something like this might work in the ThisWorkbook module’s, Workbook_Open event.

Private Sub Workbook_Open()

Dim ws As Worksheet
Dim mnth As String, dte As String, mday As String

mday = Now() - Weekday(Now(), 3)

mnth = Month(mday)
dte = Day(mday)

tabstr = mnth & "-" & dte

    For Each ws In Worksheets
        If ws.Name = tabstr Then
            ws.Select
            Exit For
        End If
    Next
End Sub

1

solved Open specific sheet according to current Date [closed]