How Would I code A1= A2 (When selected).A3 (When selected) in Excel

Maybe:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = ActiveCell.Value
End Sub

Go to the VBA Editor (Alt+F11), click on the sheet where need this code and
paste above code into the code window.
It will put the value of the Active cell (=same as seleted cell if only one
cell is selected) into A1.

Cheers,

Joerg








"electromatt" wrote in message
...
How Would I code A1= A2 (When selected).A3 (When selected) in Excel

Thats exacly what I needed. Thanks alot.

"Joerg" wrote:

Maybe:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = ActiveCell.Value
End Sub

Go to the VBA Editor (Alt+F11), click on the sheet where need this code and
paste above code into the code window.
It will put the value of the Active cell (=same as seleted cell if only one
cell is selected) into A1.

Cheers,

Joerg








"electromatt" wrote in message
...
How Would I code A1= A2 (When selected).A3 (When selected) in Excel