请教高手，怎么用vba实现鼠标双击光标移到下一个单元格？

在工作表事件中加下面代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells(Target.Row + 1, Target.Column).Select
End Sub
仅供参考。