I'm getting the error on the 2nd line
If Target.Cells.Count 1 Then Exit Sub

This worksheet is going to be fairly large. I would like to be able to see
the history on screen as I move my cursor over a given cell.

Thanks again for helping me through this.