Hi, I'm trying to get this VB working for hidden columns, it's working for rows (got it somewhere searching in google ) .... I'm not good at this ....
Sub Test1()
Dim x As Long, y As Long
x = ActiveCell.Row
y = ActiveCell.Column
Do
x = x + 1
Loop Until Cells(x, y).EntireRow.Hidden = False
Cells(x, y).Select
End Sub<strike></strike>
Sub Test1()
Dim x As Long, y As Long
x = ActiveCell.Row
y = ActiveCell.Column
Do
x = x + 1
Loop Until Cells(x, y).EntireRow.Hidden = False
Cells(x, y).Select
End Sub<strike></strike>