Worksheet events going crazy

Hi team,
Hoping you can help. When I open a new workbook, add the word "Bob:" in a random cell - for testing purposes - and run the following code...

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet1.Cells.Find("Bob:").Activate
End Sub

...things work fine. However, when I amend the code with one additional line...

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheet1.Cells.Find("Bob:").Activate
    Sheet1.Range("D2").Value = Sheet1.Range("D2").Value + 100
End Sub

...not only do I get a runtime error 1004 that highlights "Sheet1.Cells.Find("Bob:").Activate", but the black, rectangular cursor disappears from the worksheet view. I can still type into cells, but I can't see the cell that's been selected until I start typing and after I hit "Enter", the entered text appears in a different cell than the one into which I appeared to be typing.

To confirm, the event fires (Application.EnableEvents = True) but the execution breaks when basic operations are included. I've noted this problem in Excel 2013 32-bit (version 15.0.4859.1000) and Excel 2010 32-bit (version 14.0.7173.5000). This wasn't a problem 2 months ago but I couldn't identify any particular Windows Update for Office that might be the culprit. Any help would be appreciated!

Bonehead simple but I missed it. This one is solved. Thanks guys!