How can I detect if any columns have been hidden on a worksheet in vba?

I would like to use this to prevent a modal form (called from wsheet1)
initialising and also in a Workbook_BeforeClose event which contains 4
wsheets.

Geoff

Sub geoff()
For i = 1 To 256
If Columns(i).EntireColumn.Hidden = True Then
MsgBox ("column " & i & " is hidden")
End If
Next
End Sub
--
Gary''s Student
gsnu200711

Thank you, I can adapt from that.

Geoff

"Gary''s Student" wrote:

> Sub geoff()
> For i = 1 To 256
> If Columns(i).EntireColumn.Hidden = True Then
> MsgBox ("column " & i & " is hidden")
> End If
> Next
> End Sub
> --
> Gary''s Student
> gsnu200711
>

Given that people are using v2007 now, it would be better not to hard code
the row count:

Private Sub CommandButton1_Click()
Dim i As Long

With ActiveSheet.Columns
For i = 1 To .Count
If .Item(i).EntireColumn.Hidden = True Then
MsgBox "column " & i & " is hidden"
End If
Next
End With

End Sub

NickHK

"Gary''s Student" <(E-Mail Removed)> wrote in message
news:EA163D1A-0F72-4A45-849B-(E-Mail Removed)...
> Sub geoff()
> For i = 1 To 256
> If Columns(i).EntireColumn.Hidden = True Then
> MsgBox ("column " & i & " is hidden")
> End If
> Next
> End Sub
> --
> Gary''s Student
> gsnu200711
>

good point.


b.t.w - what's an item ?
--
Gary''s Student
gsnu200711

Collections have a member of .Item.

..Columns(i) is equivalent to .Columns.Item(i)

Only so I could include both in the With block.

NickHK

"Gary''s Student" <(E-Mail Removed)> wrote in message
news:BE47585F-3A85-4F80-B9A3-(E-Mail Removed)...
> good point.
>
>
> b.t.w - what's an item ?
> --
> Gary''s Student
> gsnu200711
>

thanks
--
Gary''s Student