waarde kopieren naar werkblad

[Theophiel]

Hallo beste forumleden,

Met volgende vba probeer ik gegevens bij te plaatsen naar een werkblad die de naam draagt van een variabele cel.
Als ik in de vba een naam van een werkblad ingeef werkt de macro, geef ik de verwijzing naar de cel werkt de macro niet.

Private Sub Kopieer_Naar_Tab()
    
   Range(Range("B5").End(xlToRight), Range("B5").End(xlDown)).Copy Sheets([B3].Value).[B3].Range("A" & Rows.Count, 1).End(xlUp).Offset(2)
   
End Sub

kan iemand me verder helpen aub?

Alvast bedankt op voorhand!

 

[Cobbe]

Doe deze test eens:

Private Sub Kopieer_Naar_Tab()
  With Sheets(Range("B3").Value)
   Range(Range("B5").End(xlToRight), Range("B5").End(xlDown)).Copy .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row).Offset(2)
  End With
End Sub

 

[Theophiel]

werkt perfect! Heel erg bedankt om me verder te helpen!