It doesn't go in a cell. As I said, right click on the sheet tab and select
view code.

a module will appear. Paste the code in that, then return to excel. It is
set up to only work with entries made in column D.

--
Regards,
Tom Ogilvy


"Steve" wrote in message
...
Thanks!

I entered that in, and it doesn't seem to be working. Maybe I'm doing
something wrong. It keeps trying to put all of that program into a
cell...
and lists it as information not a function

"Tom Ogilvy" wrote:

right click on the sheet tab and select view code.

Put in code like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Column = 4 Then
v = Target.Offset(0, -1).Value
If IsNumeric(v) And IsNumeric(Target) Then
If v < 0 Then
Application.EnableEvents = False
On Error Resume Next
v1 = CDbl(Target.Value) / CDbl(v)
If Not IsError(v1) Then
Target.Value = v1
Target.NumberFormat = "#.0%"
End If
Application.EnableEvents = True
End If
End If
End If
End Sub


--
Regards,
Tom Ogilvy

"Steve" wrote in message
...
I have a spread sheet. I would like to take it and be able to put a
number
in it and have it automatically give me a percentage. In other words
column
C has to totals. Lets say C2 is 5 and I type in 1 into D2. Is there
a
way
to have it automatically change my 1 into 20%? I have to do this for
columns
D through R and have it figure out a percentage based off the totals
listed
in column C. I don't need to show "1" just the percentage of 1 and
5...
Confusing enough yet? Any help would be most appreciated :)