Here is the way
Assuming you have spreadsheet corresponding to the date
Sub Dynamic_Query()
Dim sTabName As String
Dim sXS As String
Dim sQuery As String
sXS = CStr(Format(Date, "mmddyy"))
sTabName = "[" & sXS & "$]"
sQuery = "Select * From " & sTabName & ";" '
End Sub
")
http://www.dotnetdud.blogspot.com