This macro will toggle Column J to Hide and Unhide........change the "J" to
whatever column(s) you wish........

Sub ToggleHideAndUnhideColumn()
If Range("J:J").EntireColumn.Hidden = True Then
Range("j:j").Select
Selection.EntireColumn.Hidden = False
Else
Range("j:j").Select
Selection.EntireColumn.Hidden = True
End If
Range("k1").Select
End Sub

hth
Vaya con Dios,
Chuck, CABGx3



"JP" wrote:

This is a spreadsheet with hidden columns that I need to see.
Clicking & dragging at the top of the column is not working.
Could this be a protection problem?