Sheet Change when Value is Selected

Hello,

I have a data validation list / drop down menu of dates in mmmm d format. I am trying to code the workbook so that when a date is selected, you are taken to the sheet with the matching date name. For example, if I select June 29, I want to automatically be taken to the sheet labeled June 29.

This is the code I currently have:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not (Application.Intersect(Range("B1"), Target) Is Nothing) Then _
        This Workbook.Sheets(Target.Value).Activate
End Sub

B1 is the drop down list selection. When I debug, the first line errors. What am I doing wrong?

DEMO.xlsm