Need VBA code copy a cell content to a particular cell

[SMILE]

Hi
I need a small VB Script.

I have Sheets names "Store1", "Store2" & "Store3". Also I have another sheet called "DATA"
I need to run a macro while I am in Any of the Store1, store2 or store 3.
What I need is to copy the data of Colum-B of my active row and paste it in "DATA!B5" cell.

Eg1: If I am in any of the cell in Row 11(eg.store1!K11) and when I run the macro, then it should copy Store!B11 data and paste it in "DATA!B5"
Eg2: I am in Store2!S15. When I run the macro it should copy Store2!B15 and paste it in "DATA!B5"

Hope it is clear
Thanks a lot
Tom

[HaHoBe]

Hi, Tom,

Please Login or Register  to view this content.

Ciao,
Holger

[SMILE]

Hi
Thanks but I would like to get the code without mentioning the active sheet name. I will have many sheets.
Would appreciate a solution without mentioning the active sheet name but only to mention the destination sheet (DATA) .
Thanks
Tom

[HaHoBe]

Hi, Tom,

sorry but I misread

I need to run a macro while I am in Any of the Store1, store2 or store 3.

If you want to run the macro on any sheet except data:

Please Login or Register  to view this content.

If you think it makes sense to be able to run the macro on every sheet just reduce the code to

Please Login or Register  to view this content.

but the last code would also run on Sheet Data in Row 5...

Ciao,
Holger

[SMILE]

Thank you Holger....