EXCEL中设置固定行列

如何才能固定住EXCEL中的行与列而使得在拉滚动条的时候都能看见标题？

'---------------------------------------------------------------------------------

'作者：Kammy Loo

'邮箱：rophux@gmail.com

'过程功能：设置固定的行列

'输入参数：rowIdx：设定的行下标；colIdx：设定的列下标

'输出参数：无

'返回值 ：无

'函数说明：指定一个单元格的行与列的下标即可。

'---------------------------------------------------------------------------------
Public Sub SetFixedRowCol(rowIdx As Long, colIdx As Long)

'防止异常
If rowIdx < 1 Or colIdx < 1 _
Or rowIdx > 65536 Or colIdx > 256 Then
Exit Sub
End If

'取消现有的窗口冻结
If ActiveWindow.FreezePanes Then
ActiveWindow.FreezePanes = False
End If

'选择一个单元格
ThisWorkbook.ActiveSheet.Range(Cells(rowIdx, colIdx), Cells(rowIdx, colIdx)).Select

'重新设置窗口冻结
ActiveWindow.FreezePanes = True

End Sub