Selecting a sheet based on Input from a MsgBox

OK- first post. Also first time writing a macro.
So I am trying to build a macro to ask a user to enter a date, and based on the date entered it will go to a shared drive and pull certain data from different files/sheets. Problem is there is a file that has different numbered tabs for the days of the month, and it is not able to select that day's tab.

Ive found that I am getting an "Subscript out of range error" because even though I activate this second workbook (with the tabs as days) it is trying to open the numbered tab on the workbook I want to pull the data in to. I have worked on this for about a week with no success so now I am asking for smarter people for help.

Here is my code:
------------------------------------

Please Login or Register  to view this content.

Please use code tags around posted vba code!!!

Like this:

Please Login or Register  to view this content.

Read the rules