Macro to clear all highlighted cells

I am looking to create a macro that clears all cells highlighted except the header row within a worksheet. The highlighted cells are in red and they are just to display changes between two worksheets. I want the user to be able to clear these highlights once the file is saved.
Highlighted-Fields.xlsx
AckeemKAsked:
Who is Participating?
 
Saqib Husain, SyedEngineerCommented:
With Sheets("Current").UsedRange.Offset(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
0
 
Tina KSystems SpecialistCommented:
Range("a2:l35").Select  
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Just change the range selection to match your largest possible range area, or use the range name if you have one set.
0
 
Saqib Husain, SyedEngineerCommented:
With ActiveSheet.UsedRange.Offset(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
0
 
AckeemKAuthor Commented:
How do I make it happen for a particular tab? The tab I want it to occur in is called "Current".
0
 
Tina KSystems SpecialistCommented:
You would activate the worksheet prior to the range selection -
Worksheets("Current").Activate
range("a1:l35").select....

Do you know how to add an active x control (button) to the worksheet and add code?
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.