That's helpful. My code now looks like this.
Sub BackgroundToggle()
Dim FontColor As Long
Dim FontBold As Boolean
FontColor = Selection.Font.Color
FontBold = Selection.Font.Bold
If Selection.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 2 'white
ElseIf Selection.Interior.ColorIndex = 2 Then
Selection.Interior.ColorIndex = 35 'yellow
ElseIf Selection.Interior.ColorIndex = 35 Then
Selection.Interior.ColorIndex = 1 'black
Selection.Font.Color = RGB(255, 255, 255)
Selection.Font.Bold = True
ElseIf Selection.Interior.ColorIndex = 1 Then
Selection.Interior.ColorIndex = 48 'blue
Selection.Font.Color = RGB(255, 255, 255)
Selection.Font.Bold = True
Else
Selection.Interior.ColorIndex = xlNone
Selection.Font.Bold = FontBold
Selection.Font.Color = FontColor
End If
End Sub
It's still not working. Even when the selection is not a mixed bag, i
doesn't work.
Any more ideas
--
GK8053
-----------------------------------------------------------------------
GK80535's Profile:
http://www.excelforum.com/member.php...fo&userid=1546
View this thread:
http://www.excelforum.com/showthread.php?threadid=27213