Is cell in hidden column?

[QB]

Hi

I want to cycle through a range of cells - E10 to P10 say - to find whether the cell address is in a hidden column. Is there an easy way to do this?

Thanks

QB

 

[njimack]

Something like this?

Sub Test()

Dim cell As Range

For Each cell In Range("E10:P10")
    If cell.EntireColumn.Hidden = True Then MsgBox cell.Address & " is in a hidden column"
Next
End Sub

 

[jasonb75]

In a formula (based on E10 as the start, autofill down to move to next column)

=ADDRESS(10,ROW(5:5))&IF(CELL("Width",INDIRECT(ADDRESS(10,ROW(5:5))))>0," Not Hidden"," Hidden")

In VBA

For Each mycell In Range("E10:P10")
If mycell.EntireColumn.Hidden = True Then
MsgBox mycell.Address & " is hidden"
End If
Next

Does that give you enough to build on as needed?

 

[QB]

Thanks, jasonb75 and njimack. Just what I needed.

QB