Right click sheet tab>view code>insert this>save
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Then Exit Sub
If Len(Target) > 1 Then _
Columns(Target.Column + 1).Hidden = False
End If
End Sub
However, you might consider adding the formulas by macro as each year is
needed. Much less overhead. You could also then change the preceeding
formulas to values for the same reason.
--
Don Guillett
SalesAid Software
(E-Mail Removed)
<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> The problem I have is that I have 10 years worth of data in 10 columns
> and then 20 empty columns after those awaiting data entry (for the next
> 20 years). I was wondering if it was possible to hide these columns,
> leaving only one empty column. When the header for this empty column
> (the year) is filled in, I want the next empty column to be displayed.
> Does anyone know if this is possible? (the columns contain many
> formulas and are also called upon by other sheets.)
>
> Thank you very much in advance if you can help!!!
>
> Matt
>