Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

If you want the same data to appear on other sheets but not in the same cell addresses

Private Sub worksheet_Change(ByVal Target As Range)       If Not Intersect(Range("MyRange"), Target) Is Nothing Then       With Range("MyRange")       .Copy Destination:=Sheets("Sheet3").Range("A1")       .Copy Destination:=Sheets("Sheet1").Range("D10")       End With       End If End Sub