Worksheets with dates on, automatically go to that day.

[jonboy79]

So i'm looking for some code to go to the day of my workbook. Each worksheet is dated 1,2,3,4,5 and so on. But when i open program i would like it to go straight to that day i.e, straight to that worksheet, as i've sometimes forgot to change day!!

Regards

 

[wideboydixon]

If the sheets really are numbered 1..31 then this would go to the current day sheet when you open the workbook. Alt+F11 to bring up the VBA Editor, double-click the "ThisWorkbook" module and paste the following:

Private Sub Workbook_Open()


Sheets(Format(Date, "d")).Activate


End Sub

WBD

 

[jonboy79]

I do apologize, labeled 1st, 2nd, 3rd. Thank you for you quick response and sorry for not responding sooner been stuck in bed.

 

[wideboydixon]

OK. give this a go.

Private Sub Workbook_Open()

Dim sheetName As String

Select Case Day(Date)
    Case 1, 21, 31
        sheetName = "st"
    Case 2, 22
        sheetName = "nd"
    Case 3, 23
        sheetName = "rd"
    Case Else
        sheetName = "th"
End Select

sheetName = CStr(Day(Date)) & sheetName

Sheets(sheetName).Activate

End Sub

WBD