Function BackgroundIsColoured(MyRange As Range) As Boolean
If MyRange.Interior.ColorIndex = xlColorIndexNone Then
BackgroundIsColoured = False
Else
BackgroundIsColoured = True
End If
End Function