Function OnVäri(s As Range, c) As Boolean
  If TypeName(c) = "Double" Then
    OnVäri = s.Interior.Color = c
  Else
    OnVäri = s.Interior.Color = rgb(c(1), c(2), c(3))
  End If
End Function