Sub OpenBatchFolder()
Dim RetVal
Dim MyTime, MyDate, MyStr, MyStr2, MyStr3, MyStr4, MyStr5
MyTime = Time$
MyDate = Date$
MyStr = Format(MyDate, "yyyy")
MyStr2 = Format(MyDate, "mm")
MyStr4 = Format(MyDate, "dd")
If MyStr2 = 1 Then MyStr3 = "January"
If MyStr2 = 2 Then MyStr3 = "February"
If MyStr2 = 3 Then MyStr3 = "March"
If MyStr2 = 4 Then MyStr3 = "April"
If MyStr2 = 5 Then MyStr3 = "May"
If MyStr2 = 6 Then MyStr3 = "June"
If MyStr2 = 7 Then MyStr3 = "July"
If MyStr2 = 8 Then MyStr3 = "August"
If MyStr2 = 9 Then MyStr3 = "September"
If MyStr2 = 10 Then MyStr3 = "October"
If MyStr2 = 11 Then MyStr3 = "November"
If MyStr2 = 12 Then MyStr3 = "December"
RetVal = Shell("explorer.exe S:\FinAdj\Scanned_Batched_Work\" & MyStr & "\Manual_Batches\" & MyStr2 & "_" & MyStr3 & "\" & MyStr4 & "\", 1) ' Open Manual Batches.
End Sub