Macro for Show/Hide Column

[Andy]

Hi

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

Anybody able to help?

with thanks...Andy

 

[tjtjjtjt]

Here's a basic macro that will do it:

Sub HideColD()
Columns("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

 

[Bob Phillips]

Simpler

With Columns("D")
.Hidden = Not .Hidden
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Don Guillett]

or

Sub togglehide()
columns("d").Entirecolumn.Hidden = True = Not _
columns("d").Entirecolumn.Hidden = True
End Sub

 

[Andy]

worked well. chose this one.

Here's a basic macro that will do it:

Sub HideColD()
Columns("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]

hi don, i used this for another column requirement....thanks

 

[Don Guillett]

Why? All 3 did the same thing and Bob's was the most efficient.