Problema con código para evitar referencia circular

[niconico]

Tengo este código para conseguir que cualquier valor que introduzca A1 se copie directamente a A2 y viceversa el problema que tengo es que A1 esta la hoja 1 y A2 en la hoja 2. Muchas gracias

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error Resume Next
Set rng = Intersect(Target, [A1:A2])
On Error GoTo 0
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False
If rng(1) <> "" And rng(1) <> 0 Then [A1:A2] = rng(1)
Application.EnableEvents = True
End Sub