Toggle Columns
 

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

Toggle Columns
 

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

Toggle Columns
 

Hi Greg,

Try this,

Sub ToggleHideCols2()
Dim col As Range
For Each col In Range("D:D, J:J, L:M, P:U, X:AH").Columns
col.Hidden = Not col.Hidden
Next col

End Sub

---
Regards,
Norman



"GregR" wrote in message
ups.com...
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

Toggle Columns
 

Norman and Roy, thank you for pointing me in the right direction.

Greg