Either use a link or:

Private Sub Worksheet_Change(ByVal Target As Range)
Set r1 = Range("A1")
If Intersect(Target, r1) Is Nothing Then Exit Sub
r1.Copy Sheets("Sheet2").Range("B2")
End Sub

Will automatically copy data entered in cell A1 to Sheet2 cell B2
--
Gary''s Student - gsnu200732


"Sheshmani I. Pandey" wrote:

I want to enter the same data in different worksheet and in different cell at
the same time..