Function ColsHidden() As Boolean
Dim c As Integer
Application.Volatile True
With Application.Caller.Parent
For c = 1 To .Columns.Count
If .Columns(c).EntireColumn.Hidden = True Then
ColsHidden = True
Exit Function
End If
Next c
End With
End Function