Kareena

place this code on the worksheet module


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim c As Range
For Each c In Range(Target.Address)
Selection.FormulaArray = c.Formula
Next
End Su

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