Worksheet_change copy cell value from one sheet to another

Jeg er ikke helt nivice indenfor programmering. Alligevel har jeg problemer med hvad der burde være en simpelt macro.

Jeg ønsker macroen akriveret når jeg ændrer værdien i sheet2 celle A19 eller A20.

Macroen skal så kopiere værdien i sheet23 celle DE23 til Sheet22 celle B34.

Jeg har skrevet følgende kode, men får fejlen Object doesn't support this property or method.

Private Sub Worksheet_Change(ByVal Target As Range)


Dim KeyCells As Range
 
Set KeyCells = Range("A19:A20")
   
 
   
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
  Is Nothing Then         
    Sheets(23).Select
    Range("DE23").Copy
       
    Sheets(22).Activate
    Range("b34").Paste
     
    End If
End Sub