Greg,

It looks like it doesn't like all of those column arguments. It works if you
break it up.

Columns("D:D").Hidden = Not Columns("D:D").Hidden
Columns("J:J").Hidden = Not Columns("J:J").Hidden
Columns("L:M").Hidden = Not Columns("L:M").Hidden
Columns("P:U").Hidden = Not Columns("P:U").Hidden
Columns("X:AH").Hidden = Not Columns("X:AH").Hidden

Roy

"GregR" wrote:

What is wrong with this code for toggling columns. TIA

Sub ToggleHideCols2()

Columns("D:D", "J:J", "L:M", "P:U", "X:AH").Hidden = Not Columns
_("D:D", "J:J", "L:M", "P:U", "X:AH").Hidden

End Sub

Greg