Can't remember original source.
right click sheet tabview codecopy/paste thismodify to suitSAVE

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rCell As Range
If Not Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False
If Target.Cells.Count 1 Then
For Each rCell In Selection
If IsNumeric(rCell) Then
rCell = rCell * 3
End If
Next
ElseIf IsNumeric(Target) Then
Target = Target * 3
End If
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
SalesAid Software

"Ciscokid" wrote in message
...
I am setting up a Excel worksheet for accountibility and what to simplify
it
by having one number in a column equal another number in the next cell. I
am
using Excel 2003