here's an idea I use in a checkbook
Sub balance()
[Set frng = Range("h8:h" & Range("a65536").End(xlUp).Row)
With frng
.Formula = "=h7+d8"
' .Formula = .Value 'uncomment to leave ONLY the value
End With
End Sub

--
Don Guillett
SalesAid Software

"vijaya" wrote in message
...
How do I select multiple cells of a particular column using macros and
Range.

I dont want to use ctrl key and select as I have many cells of one
particular column to be selected(something like 1000)

I wanted to copy a formula into these selected cells, once i select the
required cells

Thanks
Vijaya