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