I can make this happen with a Before Double Click Event. This will need to be pasted into each Worksheet event. Could not develop a global event.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Offset(0, 4).Select
End Sub