Help with a macro

[Tim]

Hello Friends,

I'm trying to create a macro which gets the value from
the currently selected cell.
For example: if I select cell E6 and run the macro it
copies the value from cell E6 and pastes it to cell P5.
And next time if I select another cell (let's say cell
E9) and run the macro it copies the value FROM THE
CURRENTLY SELECTED CELL E9 and copies it to cell P5.
How can I do this task using ExcelXP?

Thanks again.

Tim

 

[Alan]

Sub Macro1()
Sheet1.Range("P5").Value = ActiveCell.Value
End Sub

 

[Bob Phillips]

Tim,

Range("P5").Value = Activecell.Value

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[JR]

If I'm understanding you, try:
Sub c()
Range("P55").Value = Selection
End Sub