you might adapt this to your needs. You need to create a button and name it
"toggleit"

Sub HideG_UnhideG()
If Columns("c:j").EntireColumn.Hidden = True Then
Columns("c:j").EntireColumn.Hidden = False
ActiveSheet.Shapes("toggleit").TextFrame.Character s.Text = _
"HIDE"
Else
Columns("c:j").EntireColumn.Hidden = True
ActiveSheet.Shapes("Toggleit").TextFrame.Character s.Text = _
"SHOW"
End If
'can use =not if only ONE change.....
'Columns("g").EntireColumn.Hidden = Not Columns("g").EntireColumn.Hidden
End Sub

--
Don Guillett
SalesAid Software

"Grd" wrote in message
...
Hi,

Is there a way to hide and unhide columns easily without using the menus.
I
have a large spreadsheet and I would like to navigate it more easily.

Any help appreciated

Thanks

G