Tim,

This works on column 1

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ws_exit
With Target
If .Column = 1 Then
If Not IsNumeric(.Value) Then
.Value = ""
End If
End If
End With

ws_exit:
Application.EnableEvents = True
End Sub


Put it in the appropriate worksheet code module.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Tim" wrote in message
...
I would like to make a column reject anything other than a number for the
column. If a word is put in there by a macro excel sees it is not a number
and replaces it with a 0 or blank.