Hi alienscript


Code:
--------------------


Dim col As Long
col = ActiveCell.Column
Range(Cells(2, col), Cells(Rows.Count, col).End(xlUp)).Formula = _
Cells(2, col).Formula


--------------------



---
Message posted from http://www.ExcelForum.com/