Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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