Freeze Header Row - Column - Excel VBA

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