Thanks for this. Exactly what I wanted...


"Don Guillett" wrote in message
...
try
Sub dividebyformula()
For Each c In Selection
c.Formula = "=" & c & "/3"
Next
End Sub

--
Don Guillett
SalesAid Software

"Colin Macleod" wrote in message
...
I want to replace a number of cells on a worksheet with new values. These
new values will be the existing value divided by 0.8775. I realise I can
do this by using EditPaste SpecialDivide - but I want to be able to see
the division in the Formula Bar rather than just the end value. At the
moment, I'm just going through on a cell-by-cell basis, and editing each
one by hand. Is there a quicker way to do this?

Thanks