TOggle Button will not change to white.

[JohnnyBQue]

When I click the button if its WHITE it turns to RED if its RED it turns to WHITE the code operates correctly but when the color suppose to change back to WHITE it changes to a very very light Red, but there are times when it changes completely white.

Is this just an Excel thing ??? I really need the cell to turn completely white every time.

{Private Sub Card4_Click()
If Me.Card4.BackColor = &HFFFFFF Then
Me.Card4.BackColor = &HFF
ElseIf Me.Card4.BackColor = &HFF Then
Me.Card4.BackColor = &HFFFFFF
End If
End Sub}

 

[Fluff]

Your code works for me, but another way would be

Private Sub Card4_Click()
Me.card4.BackColor = IIf(Me.card4.BackColor = vbRed, vbWhite, vbRed)
End Sub

 

[Rick Rothstein]

Your code works for me, but another way would be

Private Sub Card4_Click()
Me.card4.BackColor = IIf(Me.card4.BackColor = vbRed, vbWhite, vbRed)
End Sub

Or, if you set the back color to either red or white at design time, then you could do this instead...

Private Sub Card4_Click()
  Me.Card4.BackColor = vbRed + vbWhite - Me.Card4.BackColor
End Sub