With Change-event code.........this will multiply the value in Cell B1 times
the value in the Active-cell

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("a1").Value = Range("b1").Value * Target.Value
End Sub

Vaya con Dios,
Chuck, CABGx3

"EPMMGR06" wrote:

Is it possible to write Excel formulas and reference the active cell as part
of the formula.
Use:
As you scroll you data, a cell at the top of the spreadsheet would show the
results of a formula that was being calculated based on where the cursor was
(active cell).