Subroutine to delete a row on double click gone wild!

Hi folks:
A while back I came to the list with some code to delete a row in a second worksheet based on a deletion of a row in an active cell. I had some great help and guidance from mikerickson and the resulting code looks like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    Set sourcebook = ThisWorkbook
    Set sourcesheet = sourcebook.Worksheets("AC CODES")
    Set targetbook = ThisWorkbook
    Set targetsheet = targetbook.Worksheets("EXPENDITURES SUMMARY")
    Dim dynamiccounter As Integer, myRow As Long
    Dim staticcounter As Integer
    myRow = Target.Row
    dynamiccounter = sourcesheet.Range("BA1").Value
    staticcounter = sourcesheet.Range("BB1").Value
        If dyamiccounter < staticcounter Then
            Application.EnableEvents = False
            targetsheet.Rows(myRow).EntireRow.Delete
            sourcesheet.Range("BB1").Value = dynamiccounter
            Application.EnableEvents = True
        End If
End Sub

Just as an FYI the counters represent the following: dynamiccounter is the number of rows used by a range I have named. staticcounter is set to equal the numeric value of dynamiccounter to start with, and then changes depending on whether the number of rows changes as per the code line: sourcesheet.Range("BB1").Value = dynamiccounter

The subroutine deletes a row where I want it to with ease. It works great.

The problem is a row gats deleted ALSO whenever I type text, or change a font, or do anything....! I am frustrated beyond compare. As far as I am aware I am asking the system to ONLY delete a row if the counters differ in number, and these counters do not change value when a font is changed or when text is written into a cell. They sit quietly to the side doing nothing until one row gets deleted. Only then do the values change and this triggers the deletion in sheet two. So why would a row in sheet two be deleted if I type a word or change a font?

I REALLY could use your help!
Nick