Worksheet change macro no longer working

I have the following worksheet change macro in a rota I use,that will scroll to the month selected from a drop down box, it was working fine and all of a sudden today it stopped working, I have checked and its still referencing the correct cells. Also I have checked my macro security settings and there's no change there either. If anybody could help and let me know what could be causing this I would really appreciate it.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngMonth As Range
    If Target.Address(0, 0) = "C2" Then
        Set rngMonth = Range("B:B").Find(Target.Value, , , xlWhole, 1, 1, 0)
        If Not rngMonth Is Nothing Then Application.Goto rngMonth.EntireRow, Scroll:=True
    End If
End Sub

There is nothing wrong with the code, however "Stopped working" means nothing really. What is not happening? Does the code execute? Does it not find anything??

Sorry I wasn't clear, I get no error messages, just when I use the drop down box to select a month it no longer scrolls to the matching month in column B. I have inserted this into the target sheet and not into a module. It was working fine yesterday but today I no longer does anything and I have made no changes to the macro. The only change I have made to the workbook is a Workbook Open Macro that scrolls to todays date found in column A when the workbook is opened. I don't think that would cause the problem and I have tried removing it just in case and there was no change.

Here is a basic example.

Works just fine...

Hmmm... I'll play around with my settings and see if I can find anything there. Thanks for trying though