Choose Day Of The Week

Triggman · Jan 29th 2018

I have a spread sheet with the sheet tabs named by the days of the week. I want to choose the sheet tab based on what day of the week it is. If it is Monday I want it to activate the Monday tab.

Max1616 · Jan 29th 2018

I would do something like this:

Code

Private Sub Workbook_Open()
Dim i As Integer
Dim check As Integer


For i = 1 To Sheets.Count
    If Sheets(i).Name = Format(Now, "DDDD") Then
        Sheets(i).Activate
        check = 1
    End If
Next i
If check = 0 Then MsgBox ("Could not find sheet """ & Format(Now, "DDDD") & """")


End Sub

Display More

Choose Day Of The Week

Participate now!

Share