Barcolor und Zellenfarbe

Sub Test()
For s = 17 To 17
For z = 25 To 35
If Cells(z, s).BarColor.Color = Cells(18, 26).Interior.ColorIndex Then
MsgBox juhu
End If
Next z
Next s
End Sub