Vba Select tab with the current day

[bluefeather8989]

I have 7 sheets in a book named Monday, Tuesday and so on to Sunday. In cell A1 of each sheet displays the current day of the week. when I open the book I need a VBA to select the sheet based on the current day. Example If today is Saturday then sheet Saturday will be selected.

 

[CalcSux78]

You could use the weekday function to identify the current date's value and use that to select the appropriate sheet.

Sub testDate()
Dim lDate As Long
'replace vbMonday with whichever sheet is first in your workbook
lDate = Weekday(Now(), vbMonday)
Sheets(lDate).Select
End Sub

 

[Tetra201]

Try Placing the following sub in ThisWorkbook code section:

Private Sub Workbook_Open()
    Sheets(Format(Date, "dddd")).Select
End Sub

 

[bluefeather8989]

Thanks this works

 

[bluefeather8989]

Both codes work exactly the way I need it to. As the saying goes "There's more than one way to skin a cat"