something like this would work without doing the selects

For k = 1 To 200
For Each cell In Range("A" & k)
cell.Value = cell.Value / 100
Next
Next

--


Gary


"Carim" wrote in message
oups.com...
Hi Tim,

Use following example :

For k = 1 To 200
CellVal = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=" & CellVal & "/100"
ActiveCell.Offset(1, 0).Select
Next k

HTH
Cheers
Carim