On Jul 20, 4:55 pm, Gord Dibben <gorddibbATshawDOTca wrote:
You don't say which column but how about column A?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rcell As Range
If Target.Column < 1 Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
For Each rcell In Selection
If rcell.Value < "" Then
With rcell
.Value = .Value + 1
.NumberFormat = "dd mm yyyy"
End With
End If
Next
endit:
Application.EnableEvents = True
End Sub

Gord



On Fri, 20 Jul 2007 03:22:29 -0700, alex wrote:
Gord,

I am pasting a range of cells, sometimes hundreds, but only one
column.

alex- Hide quoted text -

- Show quoted text -

That worked Gord; thanks for all your help.

alex