Not without event code. See below.

Why would you want to perform this action?

Easiest would be to not enter anything in the cell to start with.

Private Sub Worksheet_Change(ByVal Target As Range)
Const myRange As String = "A1:A10"
On Error GoTo endit
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(myRange)) Is Nothing Then
If Target.Value < "" Then
Target.ClearContents
End If
End If
endit:
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP

On Sun, 10 Aug 2008 15:10:23 -0700 (PDT), chucksatt
wrote:

I want to enter data into a cell, move the cursor to another cell and
at the same time automatically delete the data that was entered. Is
there a function fro this?