Hi ,

Perhaps you need this
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Address = "$A$1" Then
Workbooks("book1").Sheets(1).[A1].Value = Target.Value
Workbooks("book2").Sheets(1).[A1].Value = Target.Value
Workbooks("book3").Sheets(1).[A1].Value = Target.Value
End If
End Sub


Rgds,

Halim



create_share menuliskan:
i am not talking about worksheets. I want to enter same data on multiple
files of excel not worksheets.

"Bob Phillips" wrote:

Select all the target worksheets and just enter it on the visible one.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"create_share" wrote in message
...
Is there a way to enter data at the same time on multiple workbooks like
worksheets. It is very difficult and time consuming if you have multiple
workbooks having the same data but you can't enter data on them at the
same
time.

i don't want to combine these workbooks in one workbook because of some
reason.

any help?