Gibt es was schnelleres zum Kopieren?

Sub WWWerte_kopieren(ur As String, vo As String)
Windows(ur).Activate
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Windows(vo).Activate
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Ich war der Meinung es müßte auch so gehen:

Sub WWerte_kopieren(ur As String, vo As String)
Dim vSh As Worksheet, uSh As Worksheet
Set vSh = Workbooks(ur).Worksheets("Vorlage")
Set uSh = Workbooks(vo).Worksheets("Vorlage")
vSh.Cells(4, 13).Value = uSh.Cells(3, 1).Value
End Sub

leider aber ohne Erfolg.
Hat einer eine Idee warum.
Gruß Günter