"Claus Busch" wrote:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Target.Address(0, 0) < "A1" Then Exit Sub

Dim i As Long
Dim ShN As String

Application.EnableEvents = False
On Error GoTo CleanUp

ShN = Sh.Name
For i = 1 To 5
If Sheets(i).Name < ShN Then
Sheets(i).Range("A1") = Target.Value
End If
Next
CleanUp:
Application.EnableEvents = True
End Sub


Thanks Claus. That's what I'm looking for.

Can the above solution also be implemented with just cell formulas?
Just curious.