Date and Time Variable

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