suppose Public Sub your data is in C1 to C30
try this sub

public sub test()
Dim cell As Range
For Each cell In Range("c1:c30")
cell = cell - Range("a1")
Next
End Sub
====
perhaps there are more elegant ways.


Kanga 85 wrote in message
...
I need a macro that will do the following:
Take the cell highlighed and the next 29 cells in that row,
Subtract the value of A1 from each of these cells and paste the new value
(not the formula) into the same 30 cells,
Do this only once.

Thanks for any help.