vba to delete remove fill from cel based on colour

[CRAIG20]

Hi.

I would like vba to remove the fill from cells which have been filled yellow. (to revert them to 'no fill')

Thanks in advance

Regards

Craig

 

[Joe4]

I assume that the fill has been added manually, and is not the result of Conditional Formatting, yes?
Is it confined to a certain range? If so, what range?
You do not have any highlighting beyond the end of your data, do you?

 

[CRAIG20]

I assume that the fill has been added manually, and is not the result of Conditional Formatting, yes?
Is it confined to a certain range? If so, what range?
You do not have any highlighting beyond the end of your data, do you?

Hi the original fills were added manually.

It wil apply to N5 - N10000

Craig

 

[Joe4]

Does the range contain any other color fill in that range that you want to keep? If not, you can easily remove all fill from that range in one step like this:

    Range("N5:N1000").Interior.Pattern = xlNone

Otherwise, you will need to loop through to check the color or each cell, i.e.

Sub MyDeleteYellowFill()

    Dim cell As Range
    
    Application.ScreenUpdating = False
    
    For Each cell In Range("N5:N1000")
        If cell.Interior.Color = 65535 Then cell.Interior.Pattern = xlNone
    Next cell

    Application.ScreenUpdating = True

End Sub

 

[CRAIG20]

Does the range contain any other color fill in that range that you want to keep? If not, you can easily remove all fill from that range in one step like this:

    Range("N5:N1000").Interior.Pattern = xlNone

Otherwise, you will need to loop through to check the color or each cell, i.e.

Sub MyDeleteYellowFill()

    Dim cell As Range
    
    Application.ScreenUpdating = False
    
    For Each cell In Range("N5:N1000")
        If cell.Interior.Color = 65535 Then cell.Interior.Pattern = xlNone
    Next cell

    Application.ScreenUpdating = True

End Sub

Perfect! Thanks for your help.

 

[Joe4]

You are welcome.