worked well. chose this one.

"tjtjjtjt" wrote:

Here's a basic macro that will do it:

Sub HideColD()
Columns("D:D").Select
If Selection.EntireColumn.Hidden = False Then
Selection.EntireColumn.Hidden = True
Else
Selection.EntireColumn.Hidden = False
End If
Range("D1").Select
End Sub


tj

"Andy" wrote:

Hi

I am trying to write a Macro to Toggle Show/Hide column D

Anybody able to help?

with thanks...Andy