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
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.