combining hide columns with autofilter rows

Hi, I'm new today, so I hope I'm following the rules! (If I've done this incorrectly - sorry - just tell me the right way, please!)

I have a spreadsheet in Excel 7 for a lifelong cashflow model. The main worksheet is called 'Projection' with ages in rows & income (from a variety of sources) and expenditure (of various kinds) in columns fed with data from the Input sheet.

On the 'Input' sheet I have a button called Format Graphs which controls the following macro:

Private Sub CommandButton1_Click()
Sheets("Projection").Select
    Selection.AutoFilter Field:=1, Criteria1:="<=100", Operator:=xlAnd
    Sheets("Chart Data").Select
    Selection.AutoFilter Field:=1, Criteria1:="<=100", Operator:=xlAnd
    Sheets("Input").Select
End Sub

This limits the maximum age to 100.

On the 'Projection' sheet I have another button called Open All which counteracts the above command and resets the sheet.

In the Excel Programming forum I thought I'd found the answer in RoyUK's
ToggleColumns spreadsheet here
http://www.excelforum.com/excel-prog...de-column.html

My control row is also 3 and I have amended this so that a column with 1 is to be hidden.

However, I'm having difficulty in making the is work - Any ideas will be gratefully received.

The reason for doing this is to produce tidy graphs without orphan legends caused by blank columns.

If I'm allowed to ask another question here - ideally I would like to link the
autofilter to cell Input V42 which is where I control the max age for other functions. How can I do this, please?