Hodnoty zrkadlových buniek v programe Excel VBA - excel, excel-vba, vba

Snažím sa na hodnotu niektorých buniek pomocoukód nižšie, ale prichádza s chybou (metóda „Range“ objektu „Worksheet“ zlyhala) na jednom riadku (Worksheets (wsName) .Range). Viem si predstaviť, že to je preto, že odkazujem na údaje s rovnakým pracovným listom, ale namiesto pracovných hárkov nemôžem nájsť to, čo dať. Tiež sa neaktualizuje, ak sa zmení hodnota v bunke D5, len zostane tak, ako bola pôvodne v F5. Môže mi s tým niekto pomôcť?

Public Sub Worksheet_Change(ByVal Target As Range)
MirrorCells
End Sub
Public Sub MirrorCells()
Dim DestinationWS As Variant
DestinationWS = Array("Stock Levels")
Dim wsName As Variant

For Each wsName In DestinationWS
Worksheets(wsName).Range("F5") = Range("D5")
Next wsName
End Sub

odpovede:

Ste v slučke. Pokračujete v aktualizácii bunky ...

  If (Worksheets(wsName).Range("F5").Value <> Range("D5").Value) Then
Worksheets(wsName).Range("F5").value = Range("D5").value
End If