koppelen cellen

[BasHobus]

Ik heb de zelfde tabel op 2 verschillende bladen staan. Deze cellen wil ik aan elkaar koppelen zodat de bij verandering in beide werkbladen aangepast wordt.

vb.
Op blad 1 zijn er nog 100 artikelen aanwezig. (cel c1)
Op blad 2 is deze 100 ook zichtbaar deze is gekoppeld aan de betreffende cel(=blad1!c1). .maar wanneer ik deze hier aanpas verandert deze niet in blad 1.

Is het mogelijk om een cel op beide plaatse te bewerken zodat deze ook op beide pagina's verandert wordt.

 

[HSV]

In Thisworkbook.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim x
If Sh.Name = "Blad1" Or Sh.Name = "Blad2" Then
  x = Array("blad1", "blad2")
    Sheets(x).FillAcrossSheets _
    Sh.Range("C1")
    End If
End Sub