Fehlermeldung Runtime error 438

Sub Funktion_Daten()
Dim WS2 As Worksheet, WS3 As Worksheet
Dim aktuellesFeld As Range
Dim z As Integer
Dim aktuellName As Range
Dim i As Integer
Dim k As Integer
Set WS2 = Workbooks("Duty_Urlaub_FY2005").Worksheets("KW1-KW9")
Set WS3 = Workbooks("IT-People").Worksheets("Sheet1")
For i = 1 To 51
For k = 1 To 87
If WS2.Cells(i, k) = "IT" Then
Selection.Goto What:=WS2.Cells(2, k)
Set WS2.Cells(2, k) = aktuellesFeld
Selection.Goto What:=WS2.Cells(i, 22)
Set WS2.Cells(i, 22) = aktuellName
For z = 2 To 10
If aktuellesFeld = WS3.Cells(z, 1) Then
aktuellName.Copy Destination:=WS3.Cells(2, 5)
End If
Next
End If
Next
Next
End Sub