If you mean move up or down to the next cell then...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Target) Is Nothing Then
Target.Offset(-1, 0).Select 'use 1 instead of -1 ot move down
End If
Application.EnableEvents = True
End Sub

Sandy


Richard Harper wrote:
on my tablet pc i would like to be able to touch a cell in Excel and have it
click up or down. I don't know how to format it to do so