several cells have same value

[redraider_13]

is there a way to make several cells have the same value. for instance I want A1, A2, and A3 to always have the same value. If I change the value in A2 it changes automatically in the other cells also. Is this possible?

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
    Application.EnableEvents = False
    Range("A1:A3").Value = Target.Value
    Application.EnableEvents = True
End If
End Sub

 

[redraider_13]

that is exactly what i wanted. thank you