Frozen Rows and Columns

[EByker]

I need to acquire the number of frozen rows and columns of an Excel worksheet. How can I do this in VBA?

Thanks

Bertie

[ubentook]

This seems to work...
'--
Sub WhichOnes()
Dim x As Variant
Dim y As Variant
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
x = ActiveWindow.ScrollRow
If x > 1 Then
x = "Rows 1:" & x - 1 & " are frozen "
Else
x = "No rows are frozen "
End If

y = ActiveWindow.ScrollColumn
If y > 1 Then
y = "Columms 1:" & y - 1 & " are frozen "
Else
y = "No columns are frozen "
End If
MsgBox x & vbCr & y
End Sub
'--

I need to acquire the number of frozen rows and columns of an Excel worksheet. How can I do this in VBA?

Thanks

Bertie

[EByker]

Thanks a lot! Exactly what I was looking for.

B

[ubentook]

You are welcome. The feedback is appreciated.

Thanks a lot! Exactly what I was looking for.

B