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