Thread: VBA Code To Mirror Cells from one Worksheet to another

I am quite new to this forum so I apologise if I do something incorrectly.

I need to mirror individual cells from one worksheet to a multiple of other worksheets within the same work book. I was wondering if anyone had written a code that could do this that I could copy and paste in and edit to fit this document.

I have had a reasonable look through the forum for this answer but cant seem to find one that fits.

Thank-you,

Daniel1234

This is a fairly simple-minded version but works:

Code:

Public Sub Worksheet_Change(ByVal Target As Range)
   MirrorCells
End Sub
Public Sub MirrorCells()
   Dim DestinationWS As Variant
   DestinationWS = Array("sheet A", "sheet B") ' sheet names where you want the data to be copied
   Dim wsName As Variant
 
   For Each wsName In DestinationWS
      Worksheets(wsName).Range("A1") = Range("A1")
      ' repeat above line for each cell you want to copy
   Next wsName
End Sub

This code must go in the code for the worksheet that is the source of the data. I took you literally when you said "mirror"--this puts values in the same cell in the destination that is used in the source.

Further, this code will copy all of the values of interest every time there is any change anywhere on the source sheet, even if the change is not one of the values to be copied. It is not difficult to make that more efficient but I didn't want to write a lot more code without knowing the specifics of your situation.

(Also, note that you posted to the Excel General forum, but are asking about VBA code. There is a forum specifically for that called Excel Programming.)