Tilføjelse til makro: skiftevis visning af to celler i én celle

A1 indeholder en relativ reference til B1. For hver kørsel af makroen skal visningen i A1 skifte mellem B1 og B2, så de skiftevis bliver vist i A1

Makroen skal køre sammen med nedenstående makro:
Sub Changeref()
Dim r, r2
r = [a2].Formula
r2 = Val(Mid(r, 3, 4)) - 1
[a2].Activate
ActiveCell.FormulaR1C1 = "=R[" & r2 & "]c[2]"
End Sub

Kan det lade sig gøre?
Jeg bruger Excel 2003.
Flemming