Four simpe Excel User Functions to move the current cell around the sheet

vb6world — Tue, 11 Nov 2008 11:09:31 +0000

Four simple functions to move the current selection right, left, up and down.

Sub MoveRight(Units As Long)
On Error Resume Next
ActiveCell.Offset(0, Units).Activate
End Sub

Sub MoveLeft(Units As Long)
On Error Resume Next
ActiveCell.Offset(0, -Units).Activate
End Sub

Sub MoveUp(Units As Long)
On Error Resume Next
ActiveCell.Offset(-Units, 0).Activate
End Sub

Sub MoveDown(Units As Long)
On Error Resume Next
ActiveCell.Offset(Units, 0).Activate
End Sub

Vb6world