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