is it there a way to determine if a column is frozen using vba?

tia,
dk

frozen? what does that mean?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"dk" wrote in message
...
is it there a way to determine if a column is frozen using vba?

tia,
dk

"Bob Phillips" wrote:

frozen? what does that mean?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"dk" wrote in message
...
is it there a way to determine if a column is frozen using vba?

tia,
dk

frozen panes


If ActiveWindow.Panes.Count = 1 then panes are not frozen

And how does that relate to columns? You want if the columns are inside the
frozen area? What if part of them are?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"dk" wrote in message
...


"Bob Phillips" wrote:

frozen? what does that mean?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"dk" wrote in message
...
is it there a way to determine if a column is frozen using vba?

tia,
dk

frozen panes


If ActiveWindow.Panes.Count = 1 then panes are not frozen

This should get you started :

Private Function ColumnInFrozenPane(TestColumn As Long, argWnd As Window) As
Boolean
Dim i As Long

ColumnInFrozenPane = False

With argWnd
If .FreezePanes = True And .Panes.Count 1 Then
For i = 1 To .Panes.Count
If .Panes(i).ScrollColumn 1 Then
ColumnInFrozenPane = (TestColumn < .Panes(i).ScrollColumn)
Exit Function
End If
Next
End If
End With

End Function

You can expand it to include row instead and allow for more than single
column/row.

NickHK

"dk" wrote in message
...


"Bob Phillips" wrote:

frozen? what does that mean?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"dk" wrote in message
...
is it there a way to determine if a column is frozen using vba?

tia,
dk

frozen panes


If ActiveWindow.Panes.Count = 1 then panes are not frozen