Switch between two cell colors

[Moluccanmom]

Hello,

I have a form control button, that hides/unhides rows.
What I would like to do in addition to my code is to change the color of Range("A4:C4") to blue and with the next click back to grey.

Sub Button1_Click()

Rows("1:3").Hidden = Not Rows("1:3").Hidden
Rows("13:15").Hidden = Not Rows("13:15").Hidden
Rows("27:28").Hidden = Not Rows("27:28").Hidden
Rows("31:39").Hidden = Not Rows("31:39").Hidden

End Sub

Thank you,
Moluccanmom

 

[mumps]

Maybe:

Sub Button1_Click()
    Application.ScreenUpdating = False
    If Range("A4:C4").Interior.ColorIndex = 15 Then
        Range("A4:C4").Interior.ColorIndex = 5
    Else
        Range("A4:C4").Interior.ColorIndex = 15
    End If
    Rows("1:3").Hidden = Not Rows("1:3").Hidden
    Rows("13:15").Hidden = Not Rows("13:15").Hidden
    Rows("27:28").Hidden = Not Rows("27:28").Hidden
    Rows("31:39").Hidden = Not Rows("31:39").Hidden
    Application.ScreenUpdating = True
End Sub

 

[Moluccanmom]

Thank you mumps!! This works great

 

[mumps]

My pleasure.