Djblois
08-20-2008, 12:35 PM
I have created a form that will test what columns are hidden in a workbook and give the user some more information about the worksheet and workbook. One thing I would I am changing in it is hide all the checkboxes beyond the last column.
ex: if C is the last column then hide the D-AZ checkboxes. Unfortunately, the only way I could think to do this is very long:
Me.ColumnBform.Visible = False
Me.ColumnCform.Visible = False
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
If FinalColumn(ActiveSheet) = 1 Then
Me.ColumnBform.Visible = False
Me.ColumnCform.Visible = False
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 2 Then
Me.ColumnCform.Visible = False
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 3 Then
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 4 Then
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 5 Then
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 6 Then
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 7 Then
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
and that isn't all of it. I was wondering if somehow I could loop or something? the code works perfectly. All I want to do is shorten it.
ex: if C is the last column then hide the D-AZ checkboxes. Unfortunately, the only way I could think to do this is very long:
Me.ColumnBform.Visible = False
Me.ColumnCform.Visible = False
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
If FinalColumn(ActiveSheet) = 1 Then
Me.ColumnBform.Visible = False
Me.ColumnCform.Visible = False
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 2 Then
Me.ColumnCform.Visible = False
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 3 Then
Me.ColumnDform.Visible = False
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 4 Then
Me.ColumnEform.Visible = False
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 5 Then
Me.ColumnFform.Visible = False
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 6 Then
Me.ColumnGform.Visible = False
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
ElseIf FinalColumn(ActiveSheet) = 7 Then
Me.ColumnHform.Visible = False
Me.ColumnIform.Visible = False
Me.ColumnJform.Visible = False
Me.ColumnKform.Visible = False
Me.ColumnLform.Visible = False
Me.ColumnMform.Visible = False
Me.ColumnNform.Visible = False
Me.ColumnOform.Visible = False
Me.ColumnPform.Visible = False
Me.ColumnQform.Visible = False
Me.ColumnRform.Visible = False
Me.ColumnSform.Visible = False
Me.ColumnTform.Visible = False
Me.ColumnUform.Visible = False
Me.ColumnVform.Visible = False
Me.ColumnWform.Visible = False
Me.ColumnXform.Visible = False
Me.ColumnYform.Visible = False
Me.ColumnZform.Visible = False
Me.ColumnAAform.Visible = False
Me.ColumnABform.Visible = False
Me.ColumnACform.Visible = False
Me.ColumnADform.Visible = False
Me.ColumnAEform.Visible = False
Me.ColumnAFform.Visible = False
Me.ColumnAGform.Visible = False
Me.ColumnAHform.Visible = False
Me.ColumnAIform.Visible = False
Me.ColumnAJform.Visible = False
Me.ColumnAKform.Visible = False
Me.ColumnALform.Visible = False
Me.ColumnAMform.Visible = False
Me.ColumnANform.Visible = False
Me.ColumnAOform.Visible = False
Me.ColumnAPform.Visible = False
Me.ColumnAQform.Visible = False
Me.ColumnARform.Visible = False
Me.ColumnASform.Visible = False
Me.ColumnATform.Visible = False
Me.ColumnAUform.Visible = False
Me.ColumnAVform.Visible = False
and that isn't all of it. I was wondering if somehow I could loop or something? the code works perfectly. All I want to do is shorten it.