Interior.color in Function

Function Rotif(anf As Object, Bereich As Object) As Double
Dim s As Double
Dim NewTarget As Range
If Bereich.Value > anf.Value Then
dum = MsgBox(Bereich.Value & " / " & anf.Value)
Set NewTarget = ActiveCell.Range(Cells(1, 1), Cells(1, 1))
dum = MsgBox(NewTarget.Row & " / " & NewTarget.Column)
'Hintergrund einfärben
With NewTarget
.Interior.ColorIndex = 3
End With
Rotif = ActiveCell.Interior.ColorIndex
End If
End Function

Besten Dank