Get Return Value Of Active Cell On Change Of Selection Change

I was wondering if there is any possibility of a macro, which returns to a particular cell, the content of the active cell.
And the active cell can be any where in the same workbook except the cell in which the result is shown.
Like,

A1 is the cell where I need the content of the active cell. and this active cell can be any where except A1

Regards,
Safal

Install the following Event macro in the worksheet code area:

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Text
End Sub

---

Because it is worksheet code, it is very easy to install and automatic to use:

1. right-click the tab name near the bottom of the Excel window
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

If you have any concerns, first try it on a trial worksheet.

If you save the workbook, the macro will be saved with it.
If you are using a version of Excel later then 2003, you must save
the file as .xlsm rather than .xlsx

To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

Getting Started with Macros and User Defined Functions

To learn more about Event Macros (worksheet code), see:

Event Macros, Worksheet Events and Workbook Events

Macros must be enabled for this to work!

Thanx. It works great.

It is working fine with the single sheet but how can i make it work in the entire workbook? Can I do make it work in every open workbook?

You would need to replicate the code on every sheet of every open workbook.

Do I have to do it for different sheets in the same workbook?

I believe that is correct.

You can try this and no need to replicate the code just follow the steps:

1. Open excel
2. Press Alt + F11
3. In the right side you can see Project explore if not press Ctrl + R
4. Double click on ThisWorkbook
5. Paste below code

Code:

---

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Range("a1").Value = ActiveCell.Value
End Sub

---

:cheers:

Thanks. Also I used the sheet name so that I can get the desired result, whereever the active cell is cell A1 of sheet1 will show the content.