Microsoft Office Forums - View Single Post - [Solved] Create Tabs Days Of Month w/Copy Paste Template and Open To Current Date

p45cal · 06-01-2023, 07:57 AM

try:

Code:

Private Sub Workbook_Open()
Dim MyVal, sh
MyVal = Format(Date, "ddd mmm dd")
For Each sh In ThisWorkbook.Worksheets
  If sh.Name = MyVal Then sh.Select
Next
End Sub

or easier:

Code:

Private Sub Workbook_Open()
On Error Resume Next
Sheets(Format(Date, "ddd mmm dd")).Select
End Sub