Hiding unhiding columns

This code works but thereis a hitch.
Each Product box you have I named, for example:
In worksheet Customer3, each product box's range is named from Product1....Product10.
Doing it like this may become very tedius depending on the amount of products and the
the amount of customers. But, it does work.

Private Sub CommandButton1_Click()
Dim Number As Integer
Application.ScreenUpdating = False
Range("Product1").Columns.EntireColumn.Hidden = False
For Number = 1 To 10
Do While Number > 1
    Range("Product" & Number).Columns.EntireColumn.Hidden = True
    If Number > 1 Then Exit Do
Loop
Next Number
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Dim Number As Integer
Application.ScreenUpdating = False
Range("Product2").Columns.EntireColumn.Hidden = False
For Number = 1 To 10

Do While Number <> 2
    Range("Product" & Number).Columns.EntireColumn.Hidden = True
    If Number <> 2 Then Exit Do
Loop
Next Number
Application.ScreenUpdating = True
End Sub

Repeat for each button and then it is done. Honestly, I like this idea and it is visually appealing but, I think it would require a lot of named ranges and therefore a lot of work to make it work. Once working though, it will look good. I couldn't upload the workbook because I am using 2003 and it won't save with macros.

Use Custom Views

Create Custom Views for each table, then record a macro to Hide?unhide the views individually