Zellwert(Inhalt) in Label übernehmen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With wksKalender.Shapes("lblName")
If Not Intersect(Target, Union(Range("B6:AJ89"), Range("AL6:BC89"))) Is Nothing Then
.Height = 27.5
.Visible = True
.Top = Target.Offset(iZeile, 0).Top
.Left = Target.Left
Hier streikt es >> .Caption = wksKalender.Cells(Target.Row, 1)
Else
.Visible = False
.Top = Cells(5, 10).Top
.Left = Cells(5, 10).Left
End If
End With
End Sub