Copy with alternance 2 cells (ping-pong)

[Maurizio]

Hi all,
I 'd like a macro able to select-copy as ping pong into a same sheet:

1] If I run macro is selected-copied cell A2:

Range("A2").Select
Range("A2").Copy

2] If I run same macro again [while is active Range("A2").Copy)] is selected-copied, now, cell A5:

Range("A5").Select
Range("A5").Copy

3] and if I re-run macro again I 'd like to go back like 1]

Tia, Maurizio.

 

[north19701]

Sub Macro4()
If ActiveCell.Address = Range("a2").Address Then
    [a5].Copy
    ElseIf ActiveCell.Address = Range("a5").Address Then
    [a2].Copy
        Else
        MsgBox ("Neither cell A2 or A5 is the active cell")
End If
End Sub

 

[Maurizio]

Hi north19701,
many thanks for your idea!

This runs OK as I want.

Sub flipflop()
If ActiveCell.Address = Range("a2").Address Then
[a5].Select
[a5].Copy
ElseIf ActiveCell.Address = Range("a5").Address Then
[a2].Select
[a2].Copy
' Else
' MsgBox ("Neither cell A2 or A5 is the active cell")
End If
End Sub