Automatically hide unused columns

[jm913]

I have a 10 year schedule which returns values to a defined point. Is there
a way to hide the unused columns with the numerical value i am entering.


As an example If i want to show 60 months of cash flow can i hide the other
60 when i enter this value.

 

[Per Jessen]

Hi

You do not say where you want to enter # of month to show, so I used an
inputbox.

Sub HideUnusedCols()
Dim showCF As Long
Dim FirstDataColCell As Range
Dim FirstDataCol As Long
Dim LastDataCol As Long

showCF = InputBox _
("How many month of cash flow do you want to show ?", "Regards, Per")
FirstDataCol = 2 'Titles in column 1
LastDataCol = 121
Set FirstDataColCell = Cells(1, FirstDataCol)
FirstDataColCell.Resize(1, LastDataCol - FirstDataCol + 1) _
.EntireColumn.Hidden = False
If showCF < 120 Then
FirstDataColCell.Resize(1, LastDataCol - showCF - FirstDataCol + 1) _
.EntireColumn.Hidden = True
End If
End Sub

Regards,
Per