Here is one I have used.

Sub balance()
[a7].Select
Sort
[h7] = [d7]
Set frng = Range("h8:h" & Range("a65536").End(xlUp).Row)
With frng
.Formula = "=h7+d8"
.Formula = .Value
End With
End Sub

--
Don Guillett
SalesAid Software

"kitcox" wrote in message
...
I keep a running checkbook balance in a worksheet. Can I apply the formula
to the entire column (which has an alpha header) without having to drag
the
fill handle down manually?