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