Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
Public Sub FreezeHeaderRow(hRow As Integer)
With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    '.SplitColumn = 0
    .SplitRow = hRow
    .FreezePanes = True
End With
End Sub
Public Sub FreezeHeaderCol(hCol As Integer)
With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    .SplitColumn = hCol
    '.SplitRow = 0
    .FreezePanes = True
End With
End Sub
Sub Test()

 Call FreezeHeaderRow(1)
 Call FreezeHeaderCol(2)

End Sub
  • No labels