Right click sheet tabview codeinsert this

If Not Intersect(Target, Range("c15:g77")) Is Nothing Then
Application.EnableEvents = False
Target = Target * 0.25
Application.EnableEvents = True
End If
End Sub

--
Don Guillett
SalesAid Software

"Mike G." wrote in message
...
I would like to have a range on a spreadsheet give me a value when typed
in.

for example In range C15:G77 I want to pick a cell and type 80, but I want
it to show me only 20 (25% of the amount I put in).
OR
I'd like to type in numbers in cells, activate a macro (Ctrl+q) and have
it
multiply ONLY the new information by a factor (25%).

Reply here or