Hiding visible columns

[REX BONNETTE]

On windows xp proffesional , with excell 2007 I am trying to create a macro to hide the next visible column and unhide the 10 th unvisible column . I tried this .

Sub SelectNextVisiblkeCell2()
Dim rg As Range
Set rg As Range
Set rg = Range("a:a")
Set rg = rg.SpecialCells(xlCellTypeVisible)
rg.Select
i = 1
For Each cell In Selection
If i = 2 Then
cell.Select
Exit sub
End if
i = i + 1
Next cell
ActiveCell.EntireColumn.Select
Selection.EntireColumn.Hidden = True
End Sub

 

[Legacy 68668]

You should continue your original thread.

Your code doesn't explain what you are trying to do.