Can i quicken this Function or use diff code to speed it Up

[mahmed1]

Hi

I have this function that is used on several sheets and the The range to lookin is in B2:I200 therefore it loops several of times when this function is called or when a cell changes within that range on that sheet

I double on a cell to change its colour and add a value and then this function is called to sum the colour

This works fine but can be clunky at times

Need help speeding it up or using different method

Here is the working Code:

Function SumColour(MatchColour As Range, MatchColourRange) As Double
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In MatchColourRange
    If Cell.Interior.Color = MatchColour.Interior.Color Then
        On Error Resume Next
        SumColour = SumColour + Cell.Value
        On Error GoTo 0
    End If
Next Cell
Application.ScreenUpdating = True
End Function

 

[Rick Rothstein]

Hi Rick

Silly Me

The sheet had a double space in there which i did not realise until i tested the length of the tab name

thank you, you have been amazing

Yep, extra spaces will definite screw things up. You are quite welcome, of course... I am glad you found the problem and got things working.