I have the following code. My workbook has multiple worksheets with dates as the names. I am getting an error when testing this code in the immediate window to get the most recent date. I can't figure out what is wrong. Please help!
Dim wsSheet As Worksheet
Dim datMostRecent As Date
Dim datTestDate As Date
datMostRecent = 0
For Each wsSheet In Worksheets
datTestDate = CDate(wsSheet.Name)
If datTestDate > datMostRecent Then
datMostRecent = datTestDate
getMostRecentDate = datMostRecent
More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.
The viewer will learn how to create a slide that will launch other presentations in Microsoft PowerPoint.
In the finished slide, each item launches a new PowerPoint presentation and when each is finished it automatically comes back to this slide:
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…